Slide 98
Slide 98 text
ΫϥελʔɾσϯυϩάϥϜ Χʔυιʔτूܭ
దͳ )FJHIUʢ͖͍͠ʣͰΓάϧʔϐϯά
ೖΕࢠϝχϡʔͳͲҰൃͰߏஙͰ͖Δ
ϝχϡʔͷάϧʔϐϯά
ײ֮ͱ߹ͬͯΔʁ
data = read.csv(file="matrix.csv", sep=",")
cmd = cmdscale(data)
plot(cmd)
text(cmd, colnames(data))
data = read.csv(file="matrix.csv", sep=",")
hc = hclust(dist(data), method="ward.D2")
plot(hc, hang=-1, colnames(data[0, ]))
ଟ࣍ݩईߏ๏ʢ3ʣ ΫϥελʔɾσϯυϩάϥϜʢ3ʣ