# \donttest{
# 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)
ensemble <- ensemble_range_map(occurrences = occurrences,
env = env,
method = NULL,
presence_method = c("gaussian", "kde"),
background_method = "gaussian",
quantile = 0.05,
background_buffer_width = 100000 )
# }
Run the code above in your browser using DataLab