# Load a fitted selected model
data(sel_fit, package = "enmpa")
# Load raster layers to be projected
env_vars <- terra::rast(system.file("extdata", "vars.tif", package = "enmpa"))
# Predictions (only one selected mode, no consensus required)
preds <- predict_selected(sel_fit, newdata = env_vars, consensus = FALSE)
# Plot prediction
terra::plot(preds$predictions)
Run the code above in your browser using DataLab