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

