Kmeans, R timeout