Replacing specific column name
names(NewResSep13)[names(NewResSep13) == 'km$cluster'] <- 'ClusterNumber'