seiseki <- read.csv("Cluster.csv")
seiseki

​

seiseki.d<- dist(seiseki) 
round(seiseki.d)

sei.d<-dist(seiseki)
sei.hc<-hclust(sei.d)
(sei.hc<-hclust(sei.d))

summary(sei.hc)

​

sei.hc$merge

sei.hc$height

sei.hc$order

​

par(mfrow=c(2,2))
plot(sei.hc,main="complete")

s.hc3<-hclust(sei.d,method="ward.D")
plot(s.hc3,hang=-1,main="Ward")