Create sector_clustering.r