library(semTools)
HS.model <- ' visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9 '
fit1 <- cfa(HS.model,data = HolzingerSwineford1939, group = "school")
fit2 <- cfa(HS.model,data = HolzingerSwineford1939, group = "school",
group.equal = c("loadings"))
compareFit(fit1,fit2)