Create khmeans.R