if (FALSE) {
# simple example of a model using builtin data
# demonstrates use
test <- mplusObject(
TITLE = "test the MplusAutomation Package;",
MODEL = "
mpg ON wt hp;
wt WITH hp;",
OUTPUT = "STANDARDIZED;",
usevariables = c("mpg", "wt", "hp"),
rdata = mtcars)
res <- mplusModeler(test, "mtcars.dat", modelout = "model1.inp", run = 1L)
extract(res$results)
# there is also a method for mplusObject class
extract(res)
# load the texreg package
# to use pretty printing via screenreg
# uncomment to run these examples
# library(texreg)
# screenreg(res)
# screenreg(res, type = 'stdyx')
# screenreg(res, type = 'un', params = 'regression',
# single.row=TRUE)
# screenreg(res, type = 'un', params = 'regression', summaries = 'CFI',
# single.row=TRUE)
# remove files
unlink("mtcars.dat")
unlink("model1.inp")
unlink("model1.out")
unlink("Mplus Run Models.log")
}
Run the code above in your browser using DataLab