if (FALSE) {
test <- mplusObject(MODEL = "mpg ON wt hp;
wt WITH hp;", rdata = mtcars)
res <- mplusModeler(test, modelout = "model1.inp", run = 1L)
get_results(res, "summaries")
unlink(res$results$input$data$file)
unlink("model1.inp")
unlink("model1.out")
}
out <- get_input(res)
out <- get_warn_err(res)
out <- get_data_summary(res)
out <- get_sampstat(res)
out <- get_covariance_coverage(res)
out <- get_summaries(res)
out <- get_invariance_testing(res)
out <- get_parameters(res)
out <- get_class_counts(res)
out <- get_indirect(res)
out <- get_mod_indices(res)
out <- get_residuals(res)
out <- get_savedata(res)
out <- get_bparameters(res)
out <- get_tech1(res)
out <- get_tech3(res)
out <- get_tech4(res)
out <- get_tech7(res)
out <- get_tech8(res)
out <- get_tech9(res)
out <- get_tech10(res)
out <- get_tech12(res)
out <- get_tech15(res)
out <- get_fac_score_stats(res)
out <- get_lcCondMeans(res)
out <- get_gh5(res)
Run the code above in your browser using DataLab