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)