fix parameterEstimares.mi() large DF subsutition if any DFs misssing

TDJorgensen · Aug 18, 2024 · 4e3a0db · 4e3a0db
1 parent 86f38a4
commit 4e3a0db
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
       }