fixes

easystats · Mar 13, 2024 · e98cf33 · e98cf33
1 parent ecebb74
commit e98cf33
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/R/get_parameters_mixed.R b/R/get_parameters_mixed.R
@@ -535,16 +535,16 @@ get_parameters.hglm <- function(x,
   re <- x$ranef
 
   f <- find_formula(x)
-  if (!is.null(f$dispersion)) {
+  if (is.null(f$dispersion)) {
+    dispersion <- NULL
+  } else {
     disp <- summary(x)$SummVC1
     dispersion <- data.frame(
       Parameter = rownames(disp),
       Estimate = as.vector(disp[, 1]),
       Component = "dispersion",
       stringsAsFactors = FALSE
     )
-  } else {
-    dispersion <- NULL
   }
 
   fixed <- data.frame(

diff --git a/inst/WORDLIST b/inst/WORDLIST
@@ -33,6 +33,7 @@ Nakagawa
 Newburgh
 ORCID
 PIs
+PROreg
 Rhat
 ROPEs
 RStudio
-Original file line number
+Diff line change
@@ Expand Up / @@ -33,6 +33,7 @@ Nakagawa @@
     Newburgh
     ORCID
     PIs
+    PROreg
     Rhat
     ROPEs
     RStudio
@@ Expand Down @@