data = read.csv("kendama.csv",header=T)
result <- prcomp(data,scale=T)
biplot(result)
