Many thanks in advance, Tom.
HS.bifactor.model <- '
visual =~ x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9
g =~ NA*x2 + x3 + x4 + x5 + x6 + x7 + x8 + x9
'
fit <- cfa(HS.bifactor.model, data = HolzingerSwineford1939, orthogonal=TRUE,
std.lv=TRUE)
summary(fit, fit.measures =T, standardized = T)
HS.bifactor.model2 <- '
visual =~ x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9
g =~ NA*x2 + x3 + x4 + x5 + x6 + x7 + x8 + x9
# set covariances to zero
visual ~~ 0*textual
visual ~~ 0*speed
visual ~~ 0*g
textual ~~ 0*speed
textual ~~ 0*g
speed ~~ 0*g
# variances to 1
visual ~~ 1*visual
textual ~~ 1*textual
speed ~~ 1*speed
g ~~ 1*g
'
fit2 <- cfa(HS.bifactor.model2, data = HolzingerSwineford1939)
summary(fit2, fit.measures =T, standardized = T)