Calculate Efficiency Gap
part_egap(plans, shp, dvote, rvote)
redist_plans object or plans_matrix where each row indicates a district assignment and each column is a plan
redist_map object, tibble, or data frame containing other columns
unqouted name of column in shp with total population
unqouted name of column in shp with group population
numeric vector
Nicholas O. Stephanopoulos. 2015. Partisan Gerrymandering and the Efficiency Gap. The University of Chicago Law Review, 82, Pp. 831-900.
data(nh)
data(nh_m)
# For a single plan:
part_egap(plans = nh$r_2020, shp = nh, rvote = nrv, dvote = ndv)
#> [1] -0.02007106 -0.02007106
# Or many plans:
part_egap(plans = nh_m[, 3:5], shp = nh, rvote = nrv, dvote = ndv)
#> [1] -0.043094074 -0.043094074 -0.005968205 -0.005968205 -0.038383805
#> [6] -0.038383805