Calculate seat distribution from draws from posterior

Source: R/seat-distribution.R

Calculate seat distribution from draws from posterior

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.
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

#> [[1]]
#> # A tibble: 600 x 3
#>      sim party  seats
#>    <int> <chr>  <int>
#>  1     1 cdu      242
#>  2     1 spd      159
#>  3     1 greens    53
#>  4     1 fdp       44
#>  5     1 left      51
#>  6     1 afd       49
#>  7     2 cdu      241
#>  8     2 spd      145
#>  9     2 greens    51
#> 10     2 fdp       54
#> # … with 590 more rows
#>