# \donttest{
data(T.cristatus)
T.cristatus <- terra::rast(T.cristatus_matrix, crs = T.cristatus_crs)
terra::ext(T.cristatus) <- T.cristatus_ext
data(grassland)
grassland <- terra::rast(grassland_matrix, crs = grassland_crs)
terra::ext(grassland) <- grassland_ext
Tcrist_ovlp_null <- overlap_null_distrib(T.cristatus, grassland, rand_both = FALSE,
x_cat = TRUE, n_iterations = 100, x_model = 'random_cluster')
Tcrist_boundaries <- define_boundary(T.cristatus, cat = TRUE)
grassland_boundaries <- define_boundary(grassland, cat = FALSE, threshold = 0.1)
average_min_distance(Tcrist_boundaries, grassland_boundaries, Tcrist_ovlp_null)
# }
Run the code above in your browser using DataLab