data(nh)
data(nh_m)
# Use incumbent data:
fake_inc <- rep(FALSE, nrow(nh))
fake_inc[3:4] <- TRUE
# For a single plan:
inc_pairs(plans = nh$r_2020, shp = nh, inc = fake_inc)
# Or many plans:
inc_pairs(plans = nh_m[, 3:5], shp = nh, inc = fake_inc)
Run the code above in your browser using DataLab