Closed TDJorgensen closed 1 month ago
HS.model <- ' visual =~ x1 + x2 + x3 textual =~ x4 + x5 + x6 speed =~ x7 + x8 + x9 ' fitg <- cfa(HS.model, data = HolzingerSwineford1939, #estimator = "mlmv", group = "school", group.equal = c("loadings","intercepts")) lavTestWald(fitg, constraints = " .p70. == 0 ; .p71. == 0 ; .p72. == 0 ")