tests/testthat/test_modelling.R

In hugocalcad/LigthSSDM: Optimized SSDM Package for large dataset

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')
})