## -----------------------------------------------------------------------------
library(PRMethods)

votes <- c(A = 1000, B = 700, C = 300)
seats <- 10
threshold <- 5 

dhondt(votes, seats, threshold)

## -----------------------------------------------------------------------------
votes <- c(A = 1000, B = 700, C = 300)
seats <- 10
threshold <- 5

saintelague(votes, seats, threshold)

## -----------------------------------------------------------------------------
library(PRMethods)
votes <- c(A = 1000, B = 700, C = 300)
seats <- 10
threshold <- 5
div <- 1.4

saintelaguemod(votes, seats, threshold, div)

div_mod <- 1.8

saintelaguemod(votes, seats, threshold, div_mod)