# set/get free parameters
lav_model_set_parameters(lavmodel, x = NULL, estimator = "ML")
lav_model_get_parameters(lavmodel, GLIST = NULL, type = "free", extra = TRUE)
# compute model-implied statistics
lav_model_implied(lavmodel)
# compute standard errors
lav_model_vcov_se(lavmodel, lavpartable, VCOV = NULL, BOOT = NULL)
lavInspect(object, "est")
."free"
, only return the free model
parameters. If "user"
, return all the parameters (free and fixed) as
they appear in the user-specified parameter table.TRUE
, also include values for rows in
the parameter table where the operator is one of ":="
, "=="
,
"<"< code=""> or ">"
.
HS.model <- ' visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9 '
fit <- cfa(HS.model, data=HolzingerSwineford1939)
lavmodel <- fit@Model
est <- lav_model_get_parameters(lavmodel)
est
Run the code above in your browser using DataLab