Create kmeans.R

Use Map reduce to write kmeans algorithm.