data = read.csv("five.csv",header=T)
d <- dist(data)
ph<-hclust(d^2,"centroid")
plot(ph)

