Adding kmeans in R