# Load fitted model
data("sel_fit", package = "enmpa")
# Load raster layers to be projected
env_vars <- terra::rast(system.file("extdata", "vars.tif", package = "enmpa"))
# Prediction
pred <- predict_glm(sel_fit$glms_fitted$ModelID_7, newdata = env_vars,
data = sel_fit$data)
terra::plot(pred)
Run the code above in your browser using DataLab