get_seats: Calculate seat distribution from draws from posterior

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

Calculate seat distribution from draws from posterior

Description

Calculate seat distribution from draws from posterior

Usage

get_seats(
  dirichlet.draws,
  survey,
  distrib.fun = sls,
  samplesize = NULL,
  hurdle = 0.05,
  others = "others",
  ...
)

Arguments

dirichlet.draws	Matrix containing random draws from posterior.
survey	The actual survey results on which dirichlet.draws were based on.
distrib.fun	Function to calculate seat distribution. Defaults to sls (Sainte-Lague/Schepers).
samplesize	Number of individuals participating in the survey.
hurdle	The percentage threshold which has to be reached by a party to enter the parliament. Any party called "ssw" will be exempt from the hurdle.
others	A string indicating the name under which parties not listed explicitly are subsumed.
...	Further arguments passed to distrib.fun.

Value

A data frame containing seat distributions for each simulation in dirichlet.draws

See Also

draw_from_posterior, sls, dHondt

Examples

library(coalitions)
library(dplyr)
# get the latest survey for a sample of German federal election polls
surveys <- get_latest(surveys_sample)
# simulate 100 seat distributions
surveys <- surveys %>% mutate(draws = purrr::map(survey, draw_from_posterior, nsim = 100),
                              seats = purrr::map2(draws, survey, get_seats))
surveys$seats

adibender/coalitions documentation built on Aug. 22, 2022, 5:58 a.m.