data = read.csv("animal.csv",header=T)
d <- dist(data)
ph<-hclust(d)
plot(ph)
