tests/testthat/test_stacking.R

In sylvainschmitt/SSDM: Stacked Species Distribution Modelling

test_that('stacking function', {
  data(Env)
  data(Occurrences)
  Occ1 <- subset(Occurrences, Occurrences$SPECIES == 'elliptica')
  Occ2 <- subset(Occurrences, Occurrences$SPECIES == 'gracilis')
  ESDM1 <- ensemble_modelling(c('CTA', 'SVM'), Occ1, Env, rep = 1,
                             Xcol = 'LONGITUDE', Ycol = 'LATITUDE',
                             name = 'elliptica', ensemble.thresh = 0,
                             verbose = FALSE)
  ESDM2 <- ensemble_modelling(c('CTA', 'SVM'), Occ2, Env, rep = 1,
                             Xcol = 'LONGITUDE', Ycol = 'LATITUDE',
                             name = 'gracilis', ensemble.thresh = 0,
                             verbose = FALSE)
  SSDM <- stacking(ESDM1, ESDM2, verbose = FALSE)
  expect_is(SSDM, 'Stacked.SDM')
})