Merge pull request #6 from uhkeller/main

fix parameterEstimates.mi() large DF substitution if any DFs missing
TDJorgensen · Oct 2, 2024 · 663c2e0 · 663c2e0
2 parents 86f38a4 + 4e3a0db
commit 663c2e0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/pool-estimates.R b/R/pool-estimates.R
@@ -167,7 +167,7 @@ parameterEstimates.mi <- function(object,
       if (ci)     crit <- qt(1 - (1 - level) / 2, df = df4t)
 
       ## Set obscenely large DF to infinity for prettier printing?
-      if (zstat && output == "text" && any(PE$df > 999.5)) {
+      if (zstat && output == "text" && any(PE$df[free] > 999.5)) {
         PE$df <- ifelse(PE$df > 999, Inf, PE$df)
         infDF <- TRUE # to warn users who would panic
       }