# NOT RUN {
data(ballots)
cballots <- cleanBallots(ballots)
set.seed(1)
result1 <- stv(cballots, seats = 4)
names(result1)
result1$elected
set.seed(4)
result2 <- stv(cballots, seats = 4)
result2$elected
# }
# NOT RUN {
result3 <- stv(cballots, seats = 4, surplusMethod = "Fractional")
result3$elected
result4 <- stv(cballots, seats = 4, surplusMethod = "Fractional",
quotaMethod = "Hare")
result4$elected
result5 <- stv(cballots, seats = 4, surplusMethod = "Cambridge",
quotaMethod = "Hare")
result5$elected
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab