diff --git a/R/methods_glmmTMB.R b/R/methods_glmmTMB.R index 694e2740e..d948310ac 100644 --- 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 index b4f2dcd45..1818c588e 100644 --- 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(