| Title: | D-Hondt, Sainte-Lague, and Modified Sainte-Lague Methods for Seat Allocation |
|---|---|
| Description: | Calculates seat allocation using the D-Hondt method, Sainte-Lague method, and Modified Sainte-Lague method, all commonly used in proportional representation electoral systems. For more information on these methods, see Michael Gallagher (1991)<doi:10.1016/0261-3794(91)90004-C>. |
| Authors: | Pau Bello Pérez [aut, cre] |
| Maintainer: | Pau Bello Pérez <[email protected]> |
| License: | MIT + file LICENSE |
| Version: | 0.1.0 |
| Built: | 2025-02-14 16:24:23 UTC |
| Source: | CRAN |
DHondt method for seats allocation.
dhondt(votes, seats, threshold = 0, verbose = TRUE)dhondt(votes, seats, threshold = 0, verbose = TRUE)
votes |
Un vector con los votos de cada partido. |
seats |
Total de seats a repartir. |
threshold |
Umbral electoral |
verbose |
Muestra los resultados en la consola |
Un vector con los seats asignados a cada partido.
votes <- c(A = 100000, B = 75000, C = 50000, D = 25000) dhondt(votes, 10)votes <- c(A = 100000, B = 75000, C = 50000, D = 25000) dhondt(votes, 10)
Sainte-Lague method for seats allocation.
saintelague(votes, seats, threshold = 0, verbose = TRUE)saintelague(votes, seats, threshold = 0, verbose = TRUE)
votes |
Un vector con los votos de cada partido. |
seats |
Total de seats a repartir. |
threshold |
Umbral electoral |
verbose |
Muestra los resultados en la consola |
Un vector con los seats asignados a cada partido.
votes <- c(A = 100000, B = 75000, C = 50000, D = 25000) saintelague(votes, 10)votes <- c(A = 100000, B = 75000, C = 50000, D = 25000) saintelague(votes, 10)
Modified Sainte-Lague method for seats allocation.
saintelaguemod(votes, seats, threshold = 0, div = 1.4, verbose = TRUE)saintelaguemod(votes, seats, threshold = 0, div = 1.4, verbose = TRUE)
votes |
Un vector con los votos de cada partido. |
seats |
Total de seats a repartir. |
threshold |
Umbral electoral |
div |
Divisor modificado en Modified Sainte-Lague |
verbose |
Muestra los resultados en la consola |
Un vector con los seats asignados a cada partido.
votes <- c(A = 100000, B = 75000, C = 50000, D = 25000) saintelaguemod(votes, 10)votes <- c(A = 100000, B = 75000, C = 50000, D = 25000) saintelaguemod(votes, 10)