# \donttest{
data(fl25)
data(fl25_enum)
data(fl25_adj)
## Get an initial partition
init_plan <- fl25_enum$plans[, 5118]
## 25 precinct, three districts - no pop constraint ##
alg_253 <- redist.flip(
adj = fl25_adj, total_pop = fl25$pop,
init_plan = init_plan, nsims = 10000
)
## Get Republican Dissimilarity Index from simulations
rep_dmi_253 <- redist.segcalc(alg_253, fl25$mccain, fl25$pop)
# }
Run the code above in your browser using DataLab