# NOT RUN {
votes <- data.frame(election = rep(c(2000, 2005), each = 4),
unit = rep(c("ARG", "URY"), each = 4),
party = c("party_A", "party_B","party_C","party_D"),
votes = c(20, 20, 50, 10, 30, 35, 25, 10),
seats = c(25, 25, 40, 10, 30, 30, 30, 10)
)
enp(votes)
enp(votes, enp_seats = TRUE)
enp(votes, summary = TRUE)
# }
Run the code above in your browser using DataLab