# \donttest{
if(require("rms",quietly=TRUE)){
data('ecospat.testData')
# data for Soldanella alpina
data.Solalp<- ecospat.testData[c("Soldanella_alpina","ddeg","mind","srad","slp","topo")]
# gbm model for Soldanella alpina
glm.Solalp <- glm(Soldanella_alpina ~ pol(ddeg,2) + pol(mind,2) + pol(srad,2) + pol(slp,2)
+ pol(topo,2), data = data.Solalp, family = binomial)
# p-values
ecospat.permut.glm (glm.Solalp, 1000)
}
# }
Run the code above in your browser using DataLab