fix wrong sign for epc values in modindices() if estimator is not ML …

…(github issue 401)
yrosseel · Dec 23, 2024 · de85bfe · de85bfe
1 parent 7fcecf6
commit de85bfe
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: lavaan
 Title: Latent Variable Analysis
-Version: 0.6-20.2247
+Version: 0.6-20.2256
 Authors@R: c(person(given   = "Yves", family = "Rosseel",
                     role    = c("aut", "cre"),
                     email   = "[email protected]",

diff --git a/R/lav_modification.R b/R/lav_modification.R
@@ -125,9 +125,9 @@ modindices <- function(object,
   # create and fill in mi
   if (object@Data@nlevels == 1L) {
     N <- object@SampleStats@ntotal
-    if (object@Model@estimator %in% ("ML")) {
+    #if (object@Model@estimator %in% ("ML")) {
       score <- -1 * score # due to gradient.logl
-    }
+    #}
   } else {
     # total number of clusters (over groups)
     N <- 0