# Acquire environmental variables
files <- list.files(path = file.path(system.file(package = "dismo"), "ex"),
pattern = "grd",
full.names = TRUE)
predictors <- terra::rast(files)
# Prepare presence and background locations
p_coords <- virtualSp$presence
bg_coords <- virtualSp$background
# Create SWD object
data <- prepareSWD(species = "Virtual species",
p = p_coords,
a = bg_coords,
env = predictors,
categorical = "biome")
# Train a model
model <- train(method = "Maxnet",
data = data,
fc = "l")
# Get the confusion matrix for thresholds ranging from 0 to 1
cm <- confMatrix(model,
type = "cloglog")
head(cm)
tail(cm)
# Get the confusion matrix for a specific threshold
confMatrix(model,
type = "logistic",
th = 0.6)
Run the code above in your browser using DataLab