Skip to content

Commit

Permalink
fix test
Browse files Browse the repository at this point in the history
  • Loading branch information
strengejacke committed Jan 23, 2025
1 parent fc1e6e9 commit fda7690
Showing 1 changed file with 6 additions and 0 deletions.
6 changes: 6 additions & 0 deletions tests/testthat/test-glmmTMB.R
Original file line number Diff line number Diff line change
Expand Up @@ -36,6 +36,9 @@ test_that("estimate_means - glmmTMB", {
estim2 <- suppressMessages(estimate_means(model, backend = "marginaleffects"))
expect_equal(estim1$Mean, estim2$Mean, tolerance = 1e-3)

## FIXME: skip on marginaleffects dev - ggeffects needs to be fixed first
skip_if(utils::packageVersion("marginaleffects") > "0.24.0")

## marginaleffects for zero-inflated model, zero-inflation probabilities
estim1 <- estimate_means(model, by = "mined", backend = "marginaleffects", predict = "zprob")
estim2 <- ggeffects::predict_response(model, "mined", type = "zi_prob")
Expand All @@ -46,6 +49,9 @@ test_that("estimate_means - glmmTMB", {


test_that("estimate_contrasts - glmmTMB", {
## FIXME: skip on marginaleffects dev - ggeffects needs to be fixed first
skip_if(utils::packageVersion("marginaleffects") > "0.24.0")

## contrasts emmeans for zero-inflated model, count component
estim1 <- suppressMessages(estimate_contrasts(model, backend = "emmeans"))
pr <- ggeffects::predict_response(model, "mined", verbose = FALSE)
Expand Down

0 comments on commit fda7690

Please sign in to comment.