{
# load in sample data
library(S4DM)
library(terra)
# occurrence points
data("sample_points")
occurrences <- sample_points
# environmental data
env <- rast(system.file('ex/sample_env.tif', package="S4DM"))
# rescale the environmental data
env <- scale(env)
# Evaluate a gaussian/gaussian model calculated with the numbag approach
# using 10 bootstrap replicates.
evaluate_range_map(occurrences = occurrences,
env = env,
method = NULL,
presence_method = "gaussian",
background_method = "gaussian",
bootstrap = "numbag",
bootstrap_reps = 10,
quantile = 0.05,
constraint_regions = NULL,
background_buffer_width = 100000)
}
Run the code above in your browser using DataLab