data = read.csv("animal.csv",header=T)
pk<-kmeans(data,3)
plot(data, col=pk$cluster)
