data = read.csv("kendama.csv",header=T)
pr <- prcomp(data,scale=T)
ds <- scale(data)
pk<-kmeans(ds,3)
plot(data, col=pk$cluster)
