docs

Author: strengejacke

R/methods_glmmTMB.R

@@ -469,8 +469,6 @@ ci.glmmTMB <- function(x,
 
 # standard_error -----
 
-
-#' @rdname standard_error
 #' @export
 standard_error.glmmTMB <- function(model,
                                    effects = "fixed",
@@ -481,7 +479,10 @@ standard_error.glmmTMB <- function(model,
     component,
     c("all", "conditional", "zi", "zero_inflated", "dispersion")
   )
-  effects <- insight::validate_argument(effects, c("fixed", "random"))
+  effects <- insight::validate_argument(
+    effects,
+    c("fixed", "random")
+  )
 
   dot_args <- .check_dots(
     dots = list(...),
@@ -492,12 +493,14 @@ standard_error.glmmTMB <- function(model,
   )
 
   if (effects == "random") {
-    if (!requireNamespace("TMB", quietly = TRUE) && !requireNamespace("glmmTMB", quietly = TRUE)) {
+    if (!all(insight::check_if_installed(c("TMB", "glmmTMB"), quietly = TRUE))) {
       return(NULL)
     }
+
     s1 <- TMB::sdreport(model$obj, getJointPrecision = TRUE)
     s2 <- sqrt(s1$diag.cov.random)
     rand.ef <- glmmTMB::ranef(model)[[1]]
+
     rand.se <- lapply(rand.ef, function(.x) {
       cnt <- nrow(.x) * ncol(.x)
       s3 <- s2[1:cnt]