# NOT RUN {
data(fl25)
data(fl25_enum)
cd <- fl25_enum$plans[, fl25_enum$pop_dev <= 0.05]
redist.group.percent(plans = cd,
group_pop = fl25$BlackPop,
total_pop = fl25$TotPop)
# }
Run the code above in your browser using DataLab