diff options
-rw-r--r-- | DESCRIPTION | 4 | ||||
-rw-r--r-- | R/gdistremoval.R | 5 | ||||
-rw-r--r-- | tests/testthat/test_gdistremoval.R | 5 |
3 files changed, 12 insertions, 2 deletions
diff --git a/DESCRIPTION b/DESCRIPTION index 751cc40..5423c29 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: unmarked -Version: 1.2.5.9004 -Date: 2022-07-27 +Version: 1.2.5.9005 +Date: 2022-08-22 Type: Package Title: Models for Data from Unmarked Animals Authors@R: c( diff --git a/R/gdistremoval.R b/R/gdistremoval.R index bddac3e..43295f4 100644 --- a/R/gdistremoval.R +++ b/R/gdistremoval.R @@ -812,3 +812,8 @@ setMethod("plot", c(x = "unmarkedFitGDR", y = "missing"), function(x, y, ...) main="Removal") abline(h = 0, lty = 3, col = "gray") }) + +# Used with fitList +setMethod("fl_getY", "unmarkedFitGDR", function(fit, ...){ + getDesign(getData(fit), fit@formlist)$yDist +}) diff --git a/tests/testthat/test_gdistremoval.R b/tests/testthat/test_gdistremoval.R index c780643..8f453a5 100644 --- a/tests/testthat/test_gdistremoval.R +++ b/tests/testthat/test_gdistremoval.R @@ -338,6 +338,11 @@ test_that("gdistremoval can fit models",{ pb <- parboot(fit, nsim=2) expect_is(pb, "parboot") + # Fit list construction + fl <- fitList(fits=list(fit1=fit, fit2=fit)) + expect_is(fl, "unmarkedFitList") + ms <- modSel(fl) + expect_is(ms, "unmarkedModSel") }) test_that("gdistremoval predict method works",{ |