Merge pull request #373 from jhorzek/fix_scores

Fix for missing scores in case of fiml.
yrosseel · Aug 1, 2024 · 5c2065f · 5c2065f
2 parents 842f52b + 9afc450
commit 5c2065f
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]]