# ベクトル円海山のRスクリプトを実行したあとに続けて実行します
mykmakari9elv <- kmeans(myakari0elv, 9, nstart=50)
mycmpakari0elv <- prcomp(myakari0elv, scale=TRUE)
mykmakari9elvc3 <- kmeans(mycmpakari0elv$x, 9, nstart=50)
clPairs(myakari0elv, cl=mykmakari9elvc3$cluster)
# プロットされた図を右クリックしてコピーや保存をします |
original <- mykmakari9elvc3$centers %*% t(mycmpakari0elv$rotation)
original <- scale(original, center = FALSE, scale = 1 / mycmpakari0elv$scale)
original <- scale(original, center = -mycmpakari0elv$center, scale = FALSE)
myakaricenters9elvc3o <- as.table(original)
write.table(myakaricenters9elvc3o, file="clipboard", sep="\t")
# クラスターの重心のリストをコピー
plot(myakari2d, type="n")
text(myakaricenters9elvc3o)
rect(0, 0, 256, -256, border = "red")
# プロットされた図を右クリックしてコピーや保存をします
clPairs(rbind(myakari0elv[c(1,2)], c(0,0)), cl=append(mykmakari9elvc3$cluster, c(18)))
rect(0, 0, 256, -256, border = "red")
# プロットされた図を右クリックしてコピーや保存をします |
