example_data <- lavaan::HolzingerSwineford1939
colnames(example_data) <- c("id", "sex", "ageyr", "agemo", 'school', "grade",
"visualPerception", "cubes", "lozenges", "comprehension",
"sentenceCompletion", "wordMeaning", "speededAddition",
"speededCounting", "speededDiscrimination")
model1 <- 'comprehension ~ sentenceCompletion + wordMeaning'
model2 <- 'comprehension ~ wordMeaning
sentenceCompletion ~ wordMeaning
comprehension ~~ 0.5*wordMeaning'
model_list <- cvgather(model1, model2)
Run the code above in your browser using DataLab