Hi everyone,
I'm trying to manually calculate the standard errors (SE) from a fitted model using the expected information matrix. I took the example from the tutorial:
library(lavaan)
?HolzingerSwineford1939
visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9
HS.model <- ' visual =~ x1 + x2 + x3
textual =~ x4 + x5 + x6
speed =~ x7 + x8 + x9 '
fit <- cfa(HS.model, data=HolzingerSwineford1939)
print(sqrt(diag(solve(lavInspect(fit, what = "information.expected")))))
And here is what I got:
So is there anything wrong with my calculation?
Thanks.