fix ordbeta get_variance

easystats · Dec 3, 2023 · 62b86f7 · 62b86f7
1 parent cfba26c
commit 62b86f7
Show file tree

Hide file tree

Showing 4 changed files with 7 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.7.2
+Version: 0.19.7.3
 Authors@R: 
     c(person(given = "Daniel",
              family = "Lüdecke",

diff --git a/NEWS.md b/NEWS.md
@@ -7,6 +7,8 @@
 
 * Fixed issue in `find_formula()` for models of class `glmmPQL` (package *MASS*).
 
+* Fixed issue in `get_variance()` for *glmmTMB* models with `family = "ordbeta"`.
+
 # insight 0.19.7
 
 ## General

diff --git a/R/compute_variances.R b/R/compute_variances.R
@@ -634,7 +634,7 @@
     # transform mu
     mu <- switch(faminfo$family,
       beta = mu,
-      ordbeta = stats::qlogis(mu),
+      ordbeta = stats::plogis(mu),
       exp(mu)
     )
   }

diff --git a/tests/testthat/test-glmmTMB.R b/tests/testthat/test-glmmTMB.R
@@ -969,6 +969,9 @@ test_that("model_info, ordered beta", {
   out <- model_info(m)
   expect_true(out$is_orderedbeta)
   expect_identical(out$family, "ordbeta")
+  skip_on_cran()
+  out <- get_variance(m)
+  expect_equal(out$var.distribution, 1.44250604187634, tolerance = 1e-4)
 })