diff options
Diffstat (limited to 'tests/testthat/test_gdistremoval.R')
-rw-r--r-- | tests/testthat/test_gdistremoval.R | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/testthat/test_gdistremoval.R b/tests/testthat/test_gdistremoval.R index 8f453a5..3e205fb 100644 --- a/tests/testthat/test_gdistremoval.R +++ b/tests/testthat/test_gdistremoval.R @@ -343,6 +343,12 @@ test_that("gdistremoval can fit models",{ expect_is(fl, "unmarkedFitList") ms <- modSel(fl) expect_is(ms, "unmarkedModSel") + + #plotEffects + pdf(NULL) + plotEffects(fit, 'lambda', "sc1") + plotEffects(fit, 'rem', 'oc1') + dev.off() }) test_that("gdistremoval predict method works",{ |