Update R_Customer_Clustering.r