KMeans_rcpp function

k-means using RcppArmadillo