clustering.R: initial commit