# 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 <- initialise(
n1_map = n1_small,
K_map = K_small,
r = log(2),
rate = 1 / 1e3
)
# disp
disp_output <- disp(
N_t = sim_data$n1_map,
id = unwrap(sim_data$id),
id_matrix = as.matrix(unwrap(sim_data$id), wide = TRUE),
data_table = sim_data$data_table,
kernel = sim_data$kernel,
dens_dep = sim_data$dens_dep,
dlist = sim_data$dlist,
id_within = sim_data$id_within,
within_mask = sim_data$within_mask,
border = sim_data$border,
planar = sim_data$planar,
dist_resolution = sim_data$dist_resolution,
max_dist = sim_data$max_dist,
dist_bin = sim_data$dist_bin,
ncells_in_circle = sim_data$ncells_in_circle
)
# immigration and emigration matrices
names(disp_output)
Run the code above in your browser using DataLab