switch sign of fabin starting values (for lambda) if the marker is se…

…t to -1 (github issue 410)
yrosseel · Feb 4, 2025 · d8bfa3c · d8bfa3c
1 parent bd710c5
commit d8bfa3c
Show file tree

Hide file tree

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

diff --git a/R/lav_start.R b/R/lav_start.R
@@ -302,6 +302,12 @@ lav_start <- function(start.method = "default",
               tmp <- rep(1.0, length(tmp))
             }
           }
+
+          # check for negative marker
+          if (!std.lv && lavpartable$ustart[lambda.idx[1]] < 0) {
+            tmp <- -1 * tmp
+          }
+
           start[lambda.idx] <- tmp
 
           # factor variance