Calculate Efficiency Gap (Equal Population Assumption)

part_egap_ep(plans, shp, dvote, rvote)

Arguments

plans

redist_plans object or plans_matrix where each row indicates a district assignment and each column is a plan

shp

redist_map object, tibble, or data frame containing other columns

dvote

unqouted name of column in shp with total population

rvote

unqouted name of column in shp with group population

Value

numeric vector

References

Nicholas O. Stephanopoulos. 2015. Partisan Gerrymandering and the Efficiency Gap. The University of Chicago Law Review, 82, Pp. 831-900.

Examples

data(nh)
data(nh_m)
# For a single plan:
part_egap_ep(plans = nh$r_2020, shp = nh, rvote = nrv, dvote = ndv)
#> [1] -0.02339824 -0.02339824

# Or many plans:
part_egap_ep(plans = nh_m[, 3:5], shp = nh, rvote = nrv, dvote = ndv)
#> [1] -0.02618463 -0.02618463 -0.02245134 -0.02245134 -0.02553391 -0.02553391