Simply extracting random effects variances

DESCRIPTION

@@ -192,4 +192,17 @@ Language: en-US
 RoxygenNote: 7.2.0
 Config/testthat/edition: 3
 Roxygen: list(markdown = TRUE)
-Remotes: easystats/insight
+Remotes:
+    easystats/insight
+RemoteType: github
+RemoteHost: api.github.com
+RemoteRepo: glmmTMB
+RemoteUsername: glmmTMB
+RemoteRef: ci_tweaks
+RemoteSha: fd8bb78acd8b198147285ce94b1f67043349f570
+RemoteSubdir: glmmTMB
+GithubRepo: glmmTMB
+GithubUsername: glmmTMB
+GithubRef: ci_tweaks
+GithubSHA1: fd8bb78acd8b198147285ce94b1f67043349f570
+GithubSubdir: glmmTMB

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(as.data.frame,VarCorr.lme)
 S3method(as.data.frame,glmmTMB)
 S3method(as.data.frame,lm)
 S3method(as.data.frame,merMod)

R/1_model_parameters.R

@@ -442,6 +442,7 @@ model_parameters.default <- function(model,
     verbose = verbose
   )
 
+  # extract model parameters table, as data frame
   out <- tryCatch(
     {
       .model_parameters_generic(
@@ -470,6 +471,7 @@ model_parameters.default <- function(model,
     }
   )
 
+  # tell user if something went wrong...
   if (length(out) == 1 && isTRUE(is.na(out))) {
     msg <- insight::format_message(
       paste0("Sorry, `model_parameters()` failed with the following error (possible class '", class(model)[1], "' not supported):\n"),
@@ -485,6 +487,12 @@ model_parameters.default <- function(model,
 }
 
 
+
+
+# helper function for the composition of the parameters table,
+# including a bunch of attributes required for further processing
+# (like printing etc.)
+
 .model_parameters_generic <- function(model,
                                       ci = .95,
                                       bootstrap = FALSE,
@@ -527,6 +535,7 @@ model_parameters.default <- function(model,
     )
     args <- c(args, dots)
     params <- do.call("bootstrap_parameters", args)
+
   } else {
     # set default method for CI
     if (is.null(ci_method) || missing(ci_method)) {
@@ -552,10 +561,12 @@ model_parameters.default <- function(model,
     params <- do.call(".extract_parameters_generic", args)
   }
 
+  # exponentiate coefficients and SE/CI, if requested
   if (isTRUE(exponentiate) || identical(exponentiate, "nongaussian")) {
     params <- .exponentiate_parameters(params, model, exponentiate)
   }
 
+  # add further information as attributes
   params <- .add_model_parameters_attributes(
     params,
     model,

R/extract_parameters.R

@@ -180,6 +180,7 @@
 
 
   # ==== degrees of freedom
+
   if (!is.null(ci_method)) {
     df_error <- degrees_of_freedom(model, method = ci_method, verbose = FALSE)
   } else {
@@ -310,24 +311,12 @@
 
 .add_sigma_residual_df <- function(params, model) {
   if (is.null(params$Component) || !"sigma" %in% params$Component) {
-    sig <- tryCatch(
-      {
-        suppressWarnings(insight::get_sigma(model, ci = NULL, verbose = FALSE))
-      },
-      error = function(e) {
-        NULL
-      }
-    )
+    sig <- tryCatch(suppressWarnings(insight::get_sigma(model, ci = NULL, verbose = FALSE)),
+                    error = function(e) NULL)
     attr(params, "sigma") <- as.numeric(sig)
 
-    resdf <- tryCatch(
-      {
-        suppressWarnings(insight::get_df(model, type = "residual"))
-      },
-      error = function(e) {
-        NULL
-      }
-    )
+    resdf <- tryCatch(suppressWarnings(insight::get_df(model, type = "residual")),
+                      error = function(e) NULL)
     attr(params, "residual_df") <- as.numeric(resdf)
   }
   params