Seat Distribution by D'Hondt

Calculates number of seats for the respective parties according to the method of d'Hondt.

dHondt(votes, parties, n_seats = 183)

Arguments

votes	Number of votes per party.
parties	Names of parties (must be same length as votes).
n_seats	Number of seats in parliament. Defaults to 183 (seats in Austrian parliament).

Value

A numeric vector containing the seats of all parties after redistribution via D'Hondt

See also

sls

Examples

library(coalitions)
library(dplyr)
#> 
#> Attaching package: ‘dplyr’
#> The following objects are masked from ‘package:stats’:
#> 
#>     filter, lag
#> The following objects are masked from ‘package:base’:
#> 
#>     intersect, setdiff, setequal, union
# get the latest survey for a sample of German federal election polls
surveys <- get_latest(surveys_sample) %>% tidyr::unnest("survey")
# calculate the seat distribution based on D'Hondt for a parliament with 300 seats
dHondt(surveys$votes, surveys$party, n_seats = 300)
#> [1] 114  72  24  24  27  24  15