Update cluster analysis_cluster package.R