
Last chance! 50% off unlimited learning
Sale ends in
data(mexico)
if (require(VGAM)) {
z.out <- zelig(as.factor(vote88) ~ pristr + othcok + othsocok,
model = "mlogit", data = mexico)
x.out <- setx(z.out)
s.out <- sim(z.out, x = x.out)
ternaryplot(s.out$qi$ev, pch = ".", col = "blue",
main = "1988 Mexican Presidential Election")
}
Run the code above in your browser using DataLab