Update kmeans.R

Adding the missing dist function. Bug Fix