fixes

easystats · Dec 2, 2024 · 7c93746 · 7c93746
1 parent 159e61c
commit 7c93746
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/methods_glmmTMB.R b/R/methods_glmmTMB.R
@@ -426,7 +426,7 @@ ci.glmmTMB <- function(x,
   method <- tolower(method)
   method <- insight::validate_argument(
     method,
-    c("wald", "normal", "ml1", "betwithin", "profile", "uniroot", "robust")
+    c("wald", "normal", "ml1", "betwithin", "profile", "uniroot", "robust", "residual")
   )
   component <- insight::validate_argument(
     component,

diff --git a/tests/testthat/test-pool_parameters.R b/tests/testthat/test-pool_parameters.R
@@ -74,7 +74,7 @@ test_that("pooled parameters, glmmTMB, components", {
   )
   expect_equal(out$Coefficient, c(187.280225, -87.838969), tolerance = 1e-3)
 
-  out <- pool_parameters(models, component = "all", effects = "all")
+  out <- suppressMessages(pool_parameters(models, component = "all", effects = "all"))
   expect_named(
     out,
     c(
@@ -123,7 +123,7 @@ test_that("pooled parameters, glmmTMB, zero-inflated", {
     )
   })
 
-  out <- pool_parameters(models)
+  out <- pool_parameters(models, ci_method = "residual")
   expect_named(
     out,
     c(