Question

km<-kmeans(iris,3)
scorekm<-
function(km, x,...)
{
    args<-list(x,...)
    result=NULL
    for(i in seq(from=1,to=nargs()-1,by=4))
        {
    data<-matrix(c(args[[i]],args[[i+1]],args[[i+2]],args[[i+3]]),nrow=1)
    k <- nrow(km$centers)
    d <- as.matrix(dist(rbind(km$centers, data)))[-(1:k),1:k]
    d <- matrix(d,nrow=1)
    category<- apply(d,1,which.min)
    result<-cbind(category,result)
}
    return(result)
}

现在，我的输出是这样的：

> scorekm(km,5.9,3.0,5.1,1.8,5.1,3.8,1.6,0.2)
 category category category
>[1,]        1        2

如何将其更改为： >[1,] 1,2

输出以逗号分隔。

Answer 1

罗兰问道，为什么相关，因为我们不知道你希望如何使用你的输出。但是这应该将“result”作为带逗号的字符串返回。只需使用此结果＆lt; -paste（category，“，”，result，sep =“”）更改结果＆lt; -cbind（类别，结果）行。希望这会有所帮助。

Greetins，Ben

如何用逗号分隔输出？

1 个答案: