# 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, 30, 40, 10, 30, 35, 25, 10),
seats = c(25, 20, 40, 15, 35, 30, 30, 5)
)
dispro(votes, 1:6, 1)
dispro(votes, 3)
dispro(tidy_data = votes, method = 3:5)
dispro(tidy_data = votes, method = c(1,3,6))
dispro(tidy_data = votes, method = c("Rae", "Gallagher"))
# }
Run the code above in your browser using DataLab