mclass(m, n.clust, aux = NULL)
years <- c("1960", "1964", "1968", "1972", "1976") votes.clust <- mclust(votes.repub[,years], method = "S", noise = T)# plot the awe on the current graphics device to decide # how many groups there are plot(x = 1:length(votes.clust$awe), y = votes.clust$awe) votes.9 <- mclass(votes.clust, 9) votes.3 <- mclass(votes.clust, 3, votes.9)