# \donttest{
data(T.cristatus)
T.cristatus <- terra::rast(T.cristatus_matrix, crs = T.cristatus_crs)
terra::ext(T.cristatus) <- T.cristatus_ext
T.crist_boundaries <- define_boundary(T.cristatus, cat = TRUE)
T.crist_bound_null <- boundary_null_distrib(T.cristatus, cat = TRUE,
n_iterations = 100, model = 'random_cluster')
n_boundaries(T.crist_boundaries, T.crist_bound_null)
# }
Run the code above in your browser using DataLab