## Create example data for PR system with closed party lists,
## magnitude 5, and Droop quota
new_system <- data.frame(ballot_type = as.factor("closed"),
pool_level = as.factor("party"),
votes_per_voter = as.factor("One"),
M = 5.0,
threshold = 0.05,
formula = as.factor("droop"))
predict_iii(data = new_system, score = "AP", district_level = FALSE)
Run the code above in your browser using DataLab