# NOT RUN {
#Generate a SDMtab and launch a model
data('ctenocidaris.nutrix')
occ <- ctenocidaris.nutrix
occ <- ctenocidaris.nutrix[,c('decimal.Longitude','decimal.Latitude')]
data(predictors2005_2012)
envi <- predictors2005_2012
envi
SDMtable_ctenocidaris <- SDMPlay:::SDMtab(xydata=occ,
predictors=predictors2005_2012,
unique.data=FALSE,
same=TRUE)
model <- SDMPlay:::compute.brt(x=SDMtable_ctenocidaris, proj.predictors=envi,lr=0.005)
# Evaluate modelling performance
SDMPlay:::SDMeval(model)
# }
Run the code above in your browser using DataLab