add a few tests

nicholasjclark · Nov 1, 2024 · f18a75c · f18a75c
1 parent 4fb8c6b
commit f18a75c
Show file tree

Hide file tree

Showing 8 changed files with 24 additions and 3 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -21,3 +21,4 @@
 ^tests/testthat/Rplots\.pdf$
 ^tests/local$
 ^memcheck\.R$
+^\.gcda$
diff --git a/.gitignore b/.gitignore
@@ -8,3 +8,4 @@ Meta
 /Meta/
 desktop.ini
 ^cran-comments\.md$
+^\.gcda$
diff --git a/man/jsdgam.Rd b/man/jsdgam.Rd
diff --git a/man/mvgam_marginaleffects.Rd b/man/mvgam_marginaleffects.Rd
diff --git a/src/RcppExports.gcda b/src/RcppExports.gcda
diff --git a/src/trend_funs.gcda b/src/trend_funs.gcda
diff --git a/tests/testthat/test-jsdgam.R b/tests/testthat/test-jsdgam.R
@@ -410,6 +410,22 @@ test_that("unit must be a numeric / integer in data", {
                'Variable "site" must be either numeric or integer type')
 })
 
+test_that("n_lv must be <= number of subgroups", {
+  expect_error(jsdgam(formula = abundance ~
+                        # Environmental model includes species-level interecepts
+                        # and random slopes for a linear effect of reflection
+                        s(taxon, bs = 're') +
+                        s(taxon, bs = 're', by = reflection),
+                      # Each factor estimates a different, possibly nonlinear effect of soil.dry
+                      factor_formula = ~ s(soil.dry, k = 5, by = trend) - 1,
+                      data = spiderdat,
+                      unit = site,
+                      subgr = taxon,
+                      n_lv = 15,
+                      family = nb()),
+               'Number of factors must be <= number of levels in subgr')
+})
+
 test_that("knots must be a list", {
   expect_error(jsdgam(formula = abundance ~
                   # Environmental model includes species-level interecepts
@@ -429,7 +445,6 @@ test_that("knots must be a list", {
                 family = nb(),
                 run_model = FALSE),
                'all "knot" arguments must be supplied as lists')
-
 })
 
 test_that("errors about knot lengths should be propagated from mgcv", {

diff --git a/tests/testthat/test-nmixture.R b/tests/testthat/test-nmixture.R
@@ -194,6 +194,8 @@ test_that("nmix() post-processing works", {
     silent = 2))
 
   expect_no_error(capture_output(summary(mod)))
+  expect_no_error(capture_output(plot(mod, type = 'pterms')))
+  expect_no_error(capture_output(plot(mod, type = 'pterms', trend_effects = TRUE)))
   expect_no_error(capture_output(print(mod)))
   expect_true(inherits(hindcast(mod), 'mvgam_forecast'))
   expect_true(inherits(hindcast(mod,