fix #366

yrosseel · Jul 3, 2024 · d71ef0f · d71ef0f
1 parent 89276a4
commit d71ef0f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/lav_samplestats.R b/R/lav_samplestats.R
@@ -1458,7 +1458,7 @@ lav_samplestats_from_moments <- function(sample.cov = NULL,
         ord.idx <- which(th.idx[[g]] > 0)
         num.idx <- which(th.idx[[g]] == 0)
         if (length(ord.idx) > 0L) {
-          th.g[ord.idx] <- sample.th[[g]]
+          th.g[ord.idx] <- sample.th[[g]][ord.idx]
         }
         if (length(num.idx) > 0L) {
           ord.var.idx <- unique(th.idx[[g]][th.idx[[g]] > 0])
@@ -1486,7 +1486,7 @@ lav_samplestats_from_moments <- function(sample.cov = NULL,
         ord.idx <- which(th.idx[[g]] > 0)
         num.idx <- which(th.idx[[g]] == 0)
         if (length(ord.idx) > 0L) {
-          th.g[ord.idx] <- sample.th[[g]]
+          th.g[ord.idx] <- sample.th[[g]][ord.idx]
         }
         if (length(num.idx) > 0L) {
           ord.var.idx <- unique(th.idx[[g]][th.idx[[g]] > 0])