# \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)
# Get presence environmental data
pres_env <- get_env_pres(coords = occurrences,
env = env)
# Get background environmental data
bg_env <- get_env_bg(coords = occurrences,
env = env,width = 100000)
# Note that the functions to get the environmental data return lists,
# and only the "env" element of these is used in the fit function
rulsif_fit <- fit_density_ratio(presence = pres_env$env,
background = bg_env$env,
method = "rulsif")
# }
Run the code above in your browser using DataLab