[SAM] gamma.unbiased = TRUE per default (for se = "local")

Author: yrosseel

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: lavaan
 Title: Latent Variable Analysis
-Version: 0.6-20.2323
+Version: 0.6-20.2324
 Authors@R: c(person(given   = "Yves", family = "Rosseel",
                     role    = c("aut", "cre"),
                     email   = "Yves.Rosseel@UGent.be",

R/lav_model_information.R

@@ -23,7 +23,7 @@ lav_model_information <- function(lavmodel = NULL,
   #   estmator <- lavoptions$estimator
   # }
   information <- lavoptions$information[1] # ALWAYS used the first one
-  # called can control it
+  # caller can control it
 
   # rotation?
   # if(!is.null(lavoptions$rotation) && lavoptions$rotation != "none") {

R/lav_sam_step0.R

@@ -27,7 +27,9 @@ lav_sam_step0 <- function(cmd = "sem", model = NULL, data = NULL,
   # dotdotdot0$cat.wls.w            <- FALSE # no weight matrix if categorical
   # note: this breaks the computation of twostep standard errors...
   if (se %in% c("local", "ij", "twostep.robust")) {
+    dotdotdot0$sample.icov <- TRUE
     dotdotdot0$NACOV <- TRUE
+    dotdotdot0$gamma.unbiased <- TRUE
     dotdotdot0$fixed.x <- FALSE
     dotdotdot0$ov.order <- "force.model" # avoid data ordering...
   }