Create clustering.R