# \donttest{
library(raster)
# get predictor variables
f <- list.files(path=paste(system.file(package="phyloregion"), '/ex', sep=''),
pattern='.tif', full.names=TRUE )
preds <- stack(f)
#plot(preds)
# get species occurrences
d <- read.csv(system.file("ex/Bombax.csv", package="phyloregion"))
# fit ensemble model for four algorithms
mod <- sdm(d, predictors = preds)
# }
Run the code above in your browser using DataLab