minor update

easystats · May 2, 2024 · 631d1df · 631d1df
1 parent e58a8c7
commit 631d1df
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: insight
 Title: Easy Access to Model Information for Various Model Objects
-Version: 0.19.10.2
+Version: 0.19.10.3
 Authors@R: 
     c(person(given = "Daniel",
              family = "Lüdecke",

diff --git a/R/helper_functions.R b/R/helper_functions.R
@@ -308,7 +308,15 @@
 
   tryCatch(
     {
-      if (inherits(x, c("glmmTMB", "clmm", "cpglmm"))) {
+      if (inherits(x, "glmmTMB")) {
+        eigen_values <- list()
+        for (component in c("cond", "zi")) {
+          for (i in seq_along(vals$vc[[component]])) {
+            eigen_values <- c(eigen_values, list(eigen(vals$vc[[component]][[i]], only.values = TRUE)$values))
+          }
+        }
+        is_si <- any(vapply(eigen_values, min, numeric(1), na.rm = TRUE) < tolerance)
+      } else if (inherits(x, c("clmm", "cpglmm"))) {
         is_si <- any(sapply(vals$vc, function(.x) any(abs(diag(.x)) < tolerance)))
       } else if (inherits(x, "merMod")) {
         theta <- lme4::getME(x, "theta")