if (FALSE) {
test <- mplusObject(
TITLE = "test the MplusAutomation Package and my Wrapper;",
MODEL = "
mpg ON wt hp;
wt WITH hp;",
usevariables = c("mpg", "wt", "hp"),
rdata = mtcars)
res <- mplusModeler(test, "mtcars.dat", modelout = "model1.inp", run = 1L)
# store just the unstandardized parameters in 'd'
d <- res$results$parameters$unstandardized
# extract just regression parameters
paramExtract(d, "regression")
# extract other types of parameters using shorthand
paramExtract(d, "u")
paramExtract(d, "e")
paramExtract(d, "v")
}
Run the code above in your browser using DataLab