| -10m〜20mの地点を使う | myakari3dc <- rbind(subset(myakari3d0,V3 == 20),subset(myakari3d0,V3 == 10),subset(myakari3d0,V3 == 0),subset(myakari3d0,V3 == -3),subset(myakari3d0,V3 == -10)) |
どーん
ばーん
すたぱーん | mycmpakari3dc <- prcomp(myakari3dc, scale=TRUE)
mykmakari15 <- kmeans(mycmpakari3dc$x, 15, nstart=50)
original <- mykmakari15$centers %*% t(mycmpakari3dc$rotation)
original <- scale(original, center = FALSE, scale = 1 / mycmpakari3dc$scale)
original <- scale(original, center = -mycmpakari3dc$center, scale = FALSE)
myakari15centers <- as.table(original)
write.table(myakari15centers, file="clipboard", sep="\t")
library(mclust)
clPairs(myakari3dc[1:2], cl=mykmakari15$cluster)
text(myakari15centers)
rect(0, 0, 256, -256, border = "red")
# プロットされた図を右クリックしてコピーや保存をします |
