data(holzinger_swineford)
res <- cfa_k(holzinger_swineford,
list(verbal = c("t6_paragraph_comprehension",
"t7_sentence", "t9_word_meaning"),
deduction = c("t20_deduction",
"t22_problem_reasoning",
"t23_series_completion")))
generics::tidy(res)
generics::glance(res)
Run the code above in your browser using DataLab