# NOT RUN {
# Acquire environmental variables
files <- list.files(path = file.path(system.file(package = "dismo"), "ex"),
pattern = "grd", full.names = TRUE)
predictors <- raster::stack(files)
# Prepare presence locations
p_coords <- condor[, 1:2]
# Create SWD object
presence <- prepareSWD(species = "Vultur gryphus", coords = p_coords,
env = predictors, categorical = "biome")
# Split presence locations in training (70%) and testing (30%) datasets
datasets <- trainValTest(presence, test = 0.3)
train <- datasets[[1]]
test <- datasets[[2]]
# Split presence locations in training (60%), validation (20%) and testing
# (20%) datasets
datasets <- trainValTest(presence, val = 0.2, test = 0.2)
train <- datasets[[1]]
val <- datasets[[2]]
test <- datasets[[3]]
# }
Run the code above in your browser using DataLab