# NOT RUN {
data(fl25)
d = redist_map(fl25, ndists=3, pop_tol=0.05)
plot(d)
plot(d, BlackPop/pop)
data(fl25_enum)
fl25$dist <- fl25_enum$plans[, 5118]
d <- redist_map(fl25, existing_plan = dist)
plot(d)
# }
Run the code above in your browser using DataLab