# GLM calibration results
data(cal_res, package = "enmpa")
# Fitting selected models
sel_fit <- fit_selected(cal_res)
sel_fit
# Custom formulas
forms <- c("Sp ~ bio_1 + I(bio_1^2) + I(bio_12^2)",
"Sp ~ bio_12 + I(bio_1^2) + I(bio_12^2)")
# Fitting models
fits <- fit_glms(forms, data = cal_res$data)
fits$ModelID_1
Run the code above in your browser using DataLab