revdep/checks.noindex/SSDM/old/SSDM.Rcheck/tests/testthat/test_modelling.R

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')
})
gbm-developers/gbm documentation built on Feb. 16, 2024, 6:13 p.m.