highestAverages: Highest Averages Methods of Allocating Seats Proportionally

In danielmarcelino/SciencesPo: A Tool Set for Analyzing Political Behavior Data

Description

Computes the highest averages method for a variety of formulas of allocating seats proportionally.

Usage

highestAverages(parties = NULL, votes = NULL, seats = NULL,
  method = c("dh", "sl", "msl", "danish", "hsl", "hh", "imperiali", "wb",
  "jef", "ad", "hb"), threshold = 0, ...)

## Default S3 method:
highestAverages(parties = NULL, votes = NULL,
  seats = NULL, method = c("dh", "sl", "msl", "danish", "hsl", "hh",
  "imperiali", "wb", "jef", "ad", "hb"), threshold = 0, ...)

Arguments

parties	A character vector for parties labels or candidates in the same order as votes. If NULL, alphabet will be assigned.
votes	a numeric vector for the number of formal votes received by each party or candidate.
seats	the number of seats to be filled (scalar or vector).
method	a character name for the method to be used. See details.
threshold	a numeric value between (0~1). Default is set to 0.
...	Additional arguements (currently ignored)

Details

The following methods are available:

• "dh"d'Hondt method

• "sl"Sainte-Lague method

• "msl"Modified Sainte-Lague method

• "danish"Danish modified Sainte-Lague method

• "hsl"Hungarian modified Sainte-Lague method

• "imperiali"The Italian Imperiali (not to be confused with the Imperiali Quota, which is a Largest remainder method)

• "hh"Huntington-Hill method

• "wb"Webster's method

• "jef"Jefferson's method

• "ad"Adams's method

• "hb"Hagenbach-Bischoff method

Value

A data.frame of length parties containing apportioned integers (seats) summing to seats.

Author(s)

Daniel Marcelino, [e-mail].

References

Gallagher, Michael (1992). "Comparing Proportional Representation Electoral Systems: Quotas, Thresholds, Paradoxes and Majorities". British Journal of Political Science, 22, 4, 469-496.

Lijphart, Arend (1994). Electoral Systems and Party Systems: A Study of Twenty-Seven Democracies, 1945-1990. Oxford University Press.

See Also

largestRemainders, proportionality, politicalDiversity. For more details see the Indices vignette: vignette('Indices', package = 'SciencesPo').

Examples

# Results for the state legislative house of Ceara (2014):
votes <- c(187906, 326841, 132531, 981096, 2043217, 15061, 103679,109830, 213988, 67145, 278267)

parties <- c("PCdoB", "PDT", "PEN", "PMDB", "PRB", "PSB", "PSC", "PSTU", "PTdoB", "PTC", "PTN")

highestAverages(parties, votes, seats = 42, method = "dh")

# Let's create a data.frame with typical election results
# with the following parties and votes to return 10 seats:

my_election_data <- data.frame(
party=c("Yellow", "White", "Red", "Green", "Blue", "Pink"),
votes=c(47000, 16000,	15900,	12000,	6000,	3100))

highestAverages(my_election_data$party,
my_election_data$votes,
seats = 10,
method="dh")

# How this compares to the Sainte-Lague Method

(dat= highestAverages(my_election_data$party,
my_election_data$votes,
seats = 10,
method="sl"))

# Plot it
# Barplot(data=dat, "Party", "Seats") +
# theme_fte()

danielmarcelino/SciencesPo documentation built on Oct. 20, 2019, 1:15 a.m.