R kmeans function finished, predict function written for kmeans