{{category R}} !!!Cluster Analysis クラスター分析 {{pre > head(errdat5) > kyori <- dist(errdat5[ , -1]) > errdat5.hc <- hclust(kyori, method="ward.D2") > plot(errdat5.hc) > errdat5.hc.cut5 <- cutree(errdat5.hc, k=5) > C.score <- errdat5[ , 1] > errdat5.hc.table <- table(C.score, errdat5.hc.cut5) > errdat5.hc.table }}