sls: Seat Distribution by Sainte-Lague/Schepers

In adibender/coalitions: Bayesian "Now-Cast" Estimation of Event Probabilities in Multi-Party Democracies

Seat Distribution by Sainte-Lague/Schepers

Description

Calculates number of seats for the respective parties that have received more than 5% of votes (according to the method of Sainte-Lague/Schepers, see https://www.wahlrecht.de/verfahren/rangmasszahlen.html).

Usage

sls(votes, parties, n_seats = 598L)

Arguments

votes	A numeric vector giving the redistributes votes
parties	A character vector indicating the names of parties with respective votes.
n_seats	The total number of seats that can be assigned to the different parties.

Value

A numeric vector giving the number of seats each party obtained.

See Also

dHondt

Examples

library(coalitions)
library(dplyr)
# 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 Sainte-Lague/Schepers for a parliament with 300 seats
sls(surveys$votes, surveys$party, n_seats = 300)

adibender/coalitions documentation built on July 23, 2024, 4:28 p.m.