# get predictor variables
library(dismo)
predictors <- stack(list.files(path=paste(system.file(package="dismo"), '/ex', sep=''), pattern='grd', full.names=TRUE ))
names(predictors)
# create data set with ranges of explanatory variables
new.data <- evaluation.strip.data(predictors, factors="biome")
summary(new.data[new.data[,"focal.var"]==1,])Run the code above in your browser using DataLab