Fix for missing scores in case of fiml.

Only scores for the first group were reported due to seq_along always evaluating to 1.
yrosseel · Jul 22, 2024 · 9afc450 · 9afc450
1 parent d6f7256
commit 9afc450
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ctr_estfun.R b/R/ctr_estfun.R
@@ -210,7 +210,7 @@ lav_scores_ml <- function(ntab = 0L,
       score.sigma <- matrix(0, nsub, nvar * (nvar + 1) / 2)
       score.mu <- matrix(0, nsub, nvar)
 
-      for (p in seq_along(length(M))) {
+      for (p in seq_len(length(M))) {
         ## Data
         # X <- M[[p]][["X"]]
         case.idx <- Mp$case.idx[[p]]