tests/testthat/setup.R

In kosukeimai/redist: Simulation Methods for Legislative Redistricting

data(fl25)
data(fl25_enum)
data(iowa)
adj <- list(1L:14L, c(0L, 3L, 15L, 16L, 17L, 18L, 19L, 20L, 21L), c(0L, 3L, 5L, 20L, 22L),
    c(0L, 1L, 2L, 20L), c(0L, 6L, 21L, 23L, 24L), c(0L, 2L, 8L, 22L), c(0L, 4L, 7L),
    c(0L, 6L, 9L), c(0L, 5L, 13L), c(0L, 7L, 10L), c(0L, 9L, 11L), c(0L, 10L, 12L),
    c(0L, 11L, 14L), c(0L, 8L, 14L), c(0L, 12L, 13L), c(1L, 16L, 17L), c(1L, 15L, 18L),
    c(1L, 15L, 20L), c(1L, 16L, 19L), c(1L, 18L, 21L), c(1L, 2L, 3L, 17L, 22L),
    c(1L, 4L, 19L, 23L, 24L), c(2L, 5L, 20L), c(4L, 21L, 24L), c(4L, 21L, 23))
pop <- fl25$pop
fl_map <- redist_map(fl25, pop_tol = 0.1, ndists = 3, adj = adj) %>% suppressMessages()
plans_10 <- fl25_enum$plans[, fl25_enum$pop_dev <= 0.10]