adding clustering analysis R script