data = read.csv("ABC.csv",header=F)
pk<-kmeans(data,3)
plot(data,type="n")
text(data,labels=pk$cluster, col=pk$cluster)
