lav_model_hessian(): add lavcache to lav_model_objective() if numerical gradient is used (see issue #430)

Author: yrosseel

DESCRIPTION

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

R/lav_model_hessian.R

@@ -16,7 +16,8 @@ lav_model_hessian <- function(lavmodel = NULL,
       lavmodel2 <- lav_model_set_parameters(lavmodel, x = x)
       lav_model_objective(
         lavmodel = lavmodel2,
-        lavsamplestats = lavsamplestats, lavdata = lavdata
+        lavsamplestats = lavsamplestats, lavdata = lavdata,
+        lavcache = lavcache
       )[1]
     }
     x <- lav_model_get_parameters(lavmodel = lavmodel)

R/lav_partable_flat.R

@@ -763,8 +763,8 @@ lav_partable_flat <- function(FLAT = NULL, # nolint
         lhs         = lhs,
         op          = op,
         rhs         = rhs,
-        free        = free, 
-        ustart      = ustart, 
+        free        = free,
+        ustart      = ustart,
         block       = rep(1, length(rhs)))
       lv.marker <- lav_partable_vnames(tmp.list, "lv.marker")
     }