mreloc(classification, x, method = "S*", signif = rep(0, ncol(x)),
noise = F, scale = rep(1,ncol(x)),
shape = c( 1, rep(.2, (ncol(x)-1))), workspace = 10*nrow(x),
iterations = nrow(x))
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
plot(x = 1:length(votes.clust$awe), y = votes.clust$awe)
votes.class <- mclass(votes.clust, 3)
votes.reloc <- mreloc(votes.class, votes.repub[,years], method = "S",
noise = T)