redkm function

k-means on a reduced subspace