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)