Kmeans for R

first stab… part there.