Cálculos (Computing)"
In polAr: Argentina Political Analysis

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

 options(rmarkdown.html_vignette.check_title = FALSE)

library(polAr)

CÁLCULOS (Computation)

compute_competitiveness(): Calcula el nivel de competencia en una elección. Un parámetro level permite calcularlo para los distintos niveles de agregación presentes en la data (Computes the level of competition in an election. A parameter level allows to calculate it for the different levels of aggregation present in thedata).
compute_nep(): Calcula el Numero Efectivo de Partidos Politicos. Es sensible al nivel de agregación de la data obtenida (Computes the 'Effective Number of Political Parties'. It is sensitive to the level of aggregation of the obtained data).
compute_seats(): Calcula el número esperado de escaños que debería recibir cada partido en función de los votos obtenidos (Computes expected parties legislatives seats).
compute_disproportion(): Calcula el grado de desprorpoción entre porcentaje de bancas y votos de elecciones legislativas (Computes legislative election disproportion).
compute_concentration(): Calcula el grado de concentración de votos en una elección (Computes electoral concentration).

Ejemplos (Examples)

Computar Número Efectivo de Partidos (Computes Effective Number of Parites)

El cálculo se realizará el nivel de agregación de los datos descargados con get_election_data(). En este caso a nivel departamental. La función compute_nep() tiene un parámetro para elegir entre el índice de Laakso-Taagepera y/o el de Golosov

(The calculation will be done at the aggregation level of the downloaded data with get_election_data (). In this case at the departmental level. The compute_nep() function has a parameter to choose between Laakso-Taagepera and Golosov indexes)

 polAr::get_election_data(district = "tucuman", 
                   category = "dip", 
                   round = "gral", 
                   year = 2007) -> diputados_tucuman2007G



   polAr::compute_nep(data = diputados_tucuman2007G , index = "All")

Competitividad (Competitiveness)

Otro indicador de interes puede ser computado con compute_competitiveness(). Este representa el grado de comeptencia de una eleccion en un distrito determinado a partir de la diferencia porcentual de votos obtenidos por los dos partidos más votados. Puede tomar valores entre $[0,1]$ donde $1$ es lo más comeptitivo ($a=50\%$ y $b=50\%$ de los votos) y $0$ lo opuesto

(Another usefull index is done with compute_competitiveness(). Its represents the degree of competence of an election in a given district based on the percentage difference in votes obtained by the two most voted parties. You can take values between $[0,1]$ where $1$ is the most competitive - $a = 50\%$ and $b = 50\%$ of the votes- and $0$ the opposite)

 polAr::get_election_data(district = "tucuman", 
                   category = "dip", 
                   round = "gral", 
                   year = 2007, 
                   level = "departamento") -> diputados_tucuman_2007_general_depto



   polAr::compute_competitiveness(data = diputados_tucuman_2007_general_depto)

Dado que data había sido descargada con level = "departamento", podemos seleccionar ese nivel como parámetro adicional y estimar el indicador a nivel local (since data had been downloaded with level = "department" parameter, we can select that level as an additional parameter and estimate the indicator locally):

 data <- polAr::get_election_data(district = "tucuman", 
                   category = "dip", 
                   round = "gral", 
                   year = 2007, 
                   level = "departamento", long = TRUE)

   compute_competitiveness(data = data, level = "departamento")

Calcular Escaños (Compute Seats)

Es posible calcular el número estimado de escaños que correspondería asignar a cada partido político en elecciones legislativas en función de los votos obentidos. Vale remarcar que esta distribución de Diputados y Senadores está reglada por disintas fórmulas y parámetros, pero estas fueron incorporadas a la función

(It is possible to compute the estimated number of seats that should be assigned to each political party in legislative elections based on the votes they got. It is worth noting that this distribution of Deputies and Senators is governed by different formulas and parameters, but these were incorporated into the function);

caba_dip_2013 <- get_election_data(district = "caba", category = "dip", round = "gral", 2013)

caba_dip_2013 %>% get_names()

compute_seats(caba_dip_2013)