test_that('modelling function', {
data(Env)
data(Occurrences)
Occurrences <- subset(Occurrences, Occurrences$SPECIES == 'elliptica')
SDM <- modelling('GLM', Occurrences, Env,
Xcol = 'LONGITUDE', Ycol = 'LATITUDE', verbose = F)
expect_is(SDM, 'GLM.SDM')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.