Excelからコピーしたデータを Rに取り込み | mydata20=read.table("clipboard",h=0) |
k-means(k=8)を500回実行して ベストな解を出す | mykm208 <- kmeans(mydata20, 8, nstart=500) |
散布図を描く | clPairs(mydata20, cl=mykm208$cluster) |
mykm202 <- kmeans(mydata20, 2, nstart=500) |
mykm203 <- kmeans(mydata20, 3, nstart=500) |
mykm204 <- kmeans(mydata20, 4, nstart=500) |
mykm205 <- kmeans(mydata20, 5, nstart=500) |
mykm206 <- kmeans(mydata20, 6, nstart=500) |
mykm207 <- kmeans(mydata20, 7, nstart=500) |
mykm208 <- kmeans(mydata20, 8, nstart=500) |
mykm209 <- kmeans(mydata20, 9, nstart=500) |
mykm2010 <- kmeans(mydata20, 10, nstart=500) |
write.table(cbind(mykm202$cluster, mykm203$cluster, mykm204$cluster, mykm205$cluster, mykm206$cluster, mykm207$cluster, mykm208$cluster, mykm209$cluster, mykm2010$cluster), file="clipboard", sep="\t", row.names=FALSE) |