dvn <- scrapeVarCross(
commitmentQ,
x_order = "spi",
x_stem = "sat.g",
x_delim1 = ".",
x_delim2 = "_",
distinguish_1 = "1",
distinguish_2 = "2"
)
sat.resids.script <- scriptUni(
dvn,
scaleset = "FF",
lvname = "Sat",
constr_dy_meas = c("loadings", "intercepts", "residuals"),
constr_dy_struct = "none",
writeTo = tempdir(),
fileName = "dUni_residual"
)
sat.ints.script <- scriptUni(
dvn,
scaleset = "FF",
lvname = "Sat",
constr_dy_meas = c("loadings", "intercepts"),
constr_dy_struct = "none",
writeTo = tempdir(),
fileName = "dUni_intercept"
)
sat.loads.script <- scriptUni(
dvn,
scaleset = "FF",
lvname = "Sat",
constr_dy_meas = c("loadings"),
constr_dy_struct = "none",
writeTo = tempdir(),
fileName = "dUni_loading"
)
sat.config.script <- scriptUni(
dvn,
scaleset = "FF",
lvname = "Sat",
constr_dy_meas = "none",
constr_dy_struct = "none",
writeTo = tempdir(),
fileName = "dUni_configural"
)
Run the code above in your browser using DataLab