powered by
Relabel Discontinuous Counties
redist.county.relabel(adj, counties, simplify = TRUE)
character vector of county names
adjacency list
boolean - TRUE returns a numeric vector of ids, while FALSE appends a number when there are multiple connected components.
set.seed(2) data(fl25) data(fl25_adj) counties <- sample(c(rep("a", 20), rep("b", 5))) redist.county.relabel(fl25_adj, counties)
Run the code above in your browser using DataLab