Create clustering.R

First version : only standard kmeans algorithm