new R scripts added

Kmeans clustering
qqplots