# \donttest{
# data preparation
library(terra)
n1_small <- rast(system.file("input_maps/n1_small.tif", package = "rangr"))
K_small <- rast(system.file("input_maps/K_small.tif", package = "rangr"))
sim_data_1 <- initialise(
n1_map = n1_small,
K_map = K_small,
r = log(2),
rate = 1 / 1e3
)
summary(sim_data_1)
sim_data_2 <- update(sim_data_1, max_dist = 3000)
summary(sim_data_2)
# }
Run the code above in your browser using DataLab