# NOT RUN {
data(election)
library(VGAM)
m_elect <- vglm(Partychoice ~ Gender + West + Age + Union + Highschool + Unemployment
+ Pol.Interest + Democracy + Religion, family = multinomial(), data = election)
ctrl <- star.ctrl(col.labels = c("black","red2","yellow2","green2","darkred"),
col.star = "darkgray", col.fill = "lightblue", col.circle = "darkgray",
cex.labels = 1.1)
effectstars(m_elect, control = ctrl)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab