Currently only implements the competitiveness function in equation (5) of Cho & Liu 2016.
competitiveness(map, rvote, dvote, .data = cur_plans())
redist.competitiveness(plans, rvote, dvote, alpha = 1, beta = 1)a redist_map object
A numeric vector with the Republican vote for each precinct.
A numeric vector with the Democratic vote for each precinct.
a redist_plans object
A numeric vector (if only one map) or matrix with one row for each precinct and one column for each map. Required.
A numeric value for the alpha parameter for the talisman metric
A numeric value for the beta parameter for the talisman metric
Numeric vector with competitiveness scores
data(fl25)
data(fl25_enum)
plans_05 <- fl25_enum$plans[, fl25_enum$pop_dev <= 0.05]
# old: comp <- redist.competitiveness(plans_05, fl25$mccain, fl25$obama)
comp <- compet_talisman(plans_05, fl25, mccain, obama)