switch sign of fabin starting values (for lambda) if the marker is set to -1 (github issue 410)

Author: yrosseel

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]",

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