【发布时间】：2013-07-25 09:19:46
【问题描述】：
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
输出用逗号分隔。
【问题讨论】：
-
你为什么要这个？
-
对不起，这没有意义。当然可以为此使用
paste，但您的老板可能想以某种方式使用输出。拥有这样的数据只对输出有意义，因为它在 R 中几乎无法使用。这可能意味着您正在寻找write.csv或类似的东西。