updated data and R code for cluster generation