| ででーん | mycmpakari0elv <- prcomp(myakari0elv, scale=TRUE)
mykmakari36elvc3 <- kmeans(mycmpakari0elv$x, 36, nstart=50)
original <- mykmakari36elvc3$centers %*% t(mycmpakari0elv$rotation)
original <- scale(original, center = FALSE, scale = 1 / mycmpakari0elv$scale)
original <- scale(original, center = -mycmpakari0elv$center, scale = FALSE)
mykmakari36elvc3o <- as.table(original)
write.table(mykmakari36elvc3o, file="clipboard", sep="\t") |
| すたぱーん | myakari2d0 <- myakari3d0[ ,c(1, 2)]
plot(myakari2d0, type="n")text(mykmakari36elvc3o)
rect(0, 0, 256, -256, border = "red")
# プロットされた図を右クリックしてコピーや保存をします |
