TGL_kmeans function

kmeans++ with return value similar to R kmeans