R/compute_nep.R
compute_nep.RdFunción que calcula el NEP: indicador que provee un número "ajustado" de partidos políticos en un sistema de partídos (Function that computes NEP: indicator that provides a "tight" number of political parties in a party system)
compute_nep(data, index = "All")
| data | la base de datos para hacer el cálculo obtenida con |
|---|---|
| index | un character con la fórmula elegida: "Laakso-Taagepera", "Golosov" o ambas -opción por defecto- (a character with the chosen formula: 'Laakso-Taagepera', 'Golosov' or both -dafault value). |
Devuelve un tibble con class "tbl_df","tbl", "data.frame" de dimensiones variables seguún el nivel de agrupamiento de
data con el cómputo del número ajustado de fuerzas en un sistema de partidos
(Returns a tibble with class "tbl_df", "tbl", "data.frame", of variable dimensions according to the grouping level of
data with a "tight" numero of political parties in a party system as outcome).
Como minimo tres variables (At least three variables:):
*codprov que es el agrupamiento de más alto nivel (provincial). Se pueden sumar otros niveles:
coddepto para nivel departamental y circuito para el nivel que le sigue
(codprov which is the highest level grouping -provincial. Other levels can be added:
coddepto for departmental level and circuito for the level that follows).
* value: el valor calculado del NEP (NEP computation)
* index: el método utilizado para calcular el NEP (NEP methodology used for computation)
El computo solo se hace a partir de la cantidad de votos de cada lista y no de las bancas (The computation is only made from the number of votes for each ballot and not from the corresponding legislativa seats).
Impementación de las fórmulas "Laakso-Taagepera" y "Golosov" donde \(p_{1}\) es el porcentaje de votos de una lista \(i\) y \(p_{max}\) es el porcentaje de votos que sacó la lista más votada (Implementation of the "Laakso-Taagepera" and "Golosov" formulas, where \(p_{1}\) is vote percentage for a list \(i\) and \(p_{max}\) the percentage for the most voted party).
\(\large Laakso-Tagepera\): $$NEP_{Laakso-Tagepera}=\frac{1}{\sum_{i}^{n}p_{i}^2}$$
\(\large Golosov\): $$NEP_{Golosov}=\frac{p_{i}}{\sum_{i}^{n} p_{i}+p_{max}^2-p_{i}^2}$$
REQUISITO:
El formato de data debe ser long para calcular compute_nep.
Si data es wide se puede transformar con make_long
(long format of data is required for compute_nep.
If data is in wide format you can transform it with make_long)
NOTA:
el parámetro level de get_election_data determina el nivel de agregacion sobre el que
se computa el NEP: provincia, departamento o circuito
(level at get_election_data determines aggregation on which NEP calculation
will be made: provincia, departamento or circuito).
tucuman_dip_gral_2017#> # A tibble: 6 x 8 #> # Groups: codprov [1] #> category round year codprov name_prov electores listas votos #> <chr> <chr> <dbl> <chr> <chr> <dbl> <chr> <dbl> #> 1 dip gral 2017 23 TUCUMAN 1217274 0180 154930 #> 2 dip gral 2017 23 TUCUMAN 1217274 0503 46609 #> 3 dip gral 2017 23 TUCUMAN 1217274 0521 319221 #> 4 dip gral 2017 23 TUCUMAN 1217274 0548 459257 #> 5 dip gral 2017 23 TUCUMAN 1217274 blancos 5920 #> 6 dip gral 2017 23 TUCUMAN 1217274 nulos 12947tucuman_dip_gral_2017 %>% compute_nep()#> # A tibble: 2 x 3 #> codprov value index #> <chr> <dbl> <chr> #> 1 23 2.47 Golosov #> 2 23 2.94 Laakso-Taagepera