if (FALSE) {
# set random number generator seed
set.seed(500)
# load data
cs_pus <- sf::read_sf(
system.file("extdata", "cs_pus.gpkg", package = "raptr")
)
cs_spp <- terra::rast(
system.file("extdata", "cs_spp.tif", package = "raptr")
)
# create inputs for RapUnsolved
ro <- RapUnreliableOpts()
rd <- make.RapData(cs_pus[seq_len(10), ], cs_spp, NULL,
include.geographic.space = TRUE,n.demand.points = 5L)
# create RapUnsolved object
ru <- RapUnsolved(ro, rd)
# print object
print(ru)
}
Run the code above in your browser using DataLab