data(holzinger_swineford)
hs_factors <- list(
verbal = c("t6_paragraph_comprehension",
"t7_sentence", "t9_word_meaning"),
deduction = c("t20_deduction", "t22_problem_reasoning",
"t23_series_completion"))
res <- cfa_k(holzinger_swineford, hs_factors)
# Are equal loadings plausible? Compare each interval with the anchor.
plot_cfa_k(res)
# The same question for the error variances, the additional constraint
# that separates essentially parallel from essentially tau-equivalent.
plot_cfa_k(res, what = "errors")
# After imposing the constraint, every item in a factor sits at the
# common estimate and the dashed line is that estimate rather than
# the mean of the free ones.
res_equal <- cfa_k(holzinger_swineford, hs_factors,
equal_loading = TRUE)
plot_cfa_k(res_equal)
Run the code above in your browser using DataLab