# NOT RUN {
data("fl25")
adj <- redist.adjacency(fl25)
area <- sf::st_area(fl25)
centers <- sf::st_coordinates(sf::st_centroid(fl25))
redist.crsg(adj.list = adj, population = fl25$pop, area = area,
x_center = centers[,1], y_center = centers[,2], ndists = 2, thresh = .1)
# }
Run the code above in your browser using DataLab