fix assignment

philchalmers · philchalmers · commit 1d8eeba76263 · 2025-11-12T14:59:30.000-05:00
diff --git a/R/marginal_moments.R b/R/marginal_moments.R
@@ -105,7 +105,7 @@ marginal_moments <- function(mod, which.items = NULL, group = NULL, bundle = TRU
             VAR <- sum((Eitem - E)^2 * den)
             SKEW <- sum((Eitem - E)^3 * den) / VAR^(3/2)
             KURT <- sum((Eitem - E)^4 * den) / VAR^2
-            ret[pick, ] <- c(E, VAR, SKEW, KURT)
+            ret[i, ] <- c(E, VAR, SKEW, KURT)
         }
     }
     ret <- as.mirt_df(ret)

Original file line number	Diff line number	Diff line change
`@@ -105,7 +105,7 @@ marginal_moments <- function(mod, which.items = NULL, group = NULL, bundle = TRU`
`105`	`105`	`VAR <- sum((Eitem - E)^2 * den)`
`106`	`106`	`SKEW <- sum((Eitem - E)^3 * den) / VAR^(3/2)`
`107`	`107`	`KURT <- sum((Eitem - E)^4 * den) / VAR^2`
`108`		`- ret[pick, ] <- c(E, VAR, SKEW, KURT)`
	`108`	`+ ret[i, ] <- c(E, VAR, SKEW, KURT)`
`109`	`109`	`}`
`110`	`110`	`}`
`111`	`111`	`ret <- as.mirt_df(ret)`