> fit<-cfa(EMI_2, data=dataBD,ordered=ord)
Warning message:In lav_object_post_check(object) :lavaan WARNING: covariance matrix of latent variablesis not positive definite;use lavInspect(fit, "cov.lv") to investigate.
GE REV PRA DES RS AFI COM PRS PRV SAP CON APA FOR AGIGE 0.348REV 0.395 0.652PRA 0.376 0.692 0.748DES 0.293 0.476 0.551 0.617RS 0.165 0.232 0.325 0.505 0.708AFI 0.219 0.343 0.396 0.397 0.358 0.512COM 0.158 0.274 0.402 0.537 0.573 0.358 0.696PRS 0.101 0.125 0.078 0.135 0.139 0.182 0.132 0.273PRV 0.261 0.415 0.301 0.237 0.082 0.178 0.067 0.275 0.619SAP 0.356 0.584 0.533 0.374 0.101 0.217 0.140 0.196 0.612 0.759CON 0.105 0.182 0.139 0.173 0.163 0.029 0.073 0.096 0.301 0.302 0.697APA 0.194 0.354 0.320 0.335 0.311 0.096 0.177 0.107 0.381 0.501 0.610 0.861FOR 0.292 0.492 0.518 0.482 0.319 0.262 0.304 0.134 0.409 0.579 0.276 0.538 0.730AGI 0.296 0.461 0.470 0.558 0.343 0.295 0.359 0.170 0.370 0.469 0.222 0.366 0.600 0.657
> fit.meas<-c("chisq", "df", "cfi", "tli", "nnfi", "rmsea", "rmsea.ci.lower", "rmsea.ci.upper")> fitMeasures(fit, fit.meas)chisq df cfi tli nnfi rmsea rmsea.ci.lower5934.289 988.000 0.991 0.989 0.989 0.063 0.061rmsea.ci.upper0.064
--
You received this message because you are subscribed to the Google Groups "lavaan" group.
To unsubscribe from this group and stop receiving emails from it, send an email to lavaan+un...@googlegroups.com.
To post to this group, send email to lav...@googlegroups.com.
Visit this group at https://groups.google.com/group/lavaan.
For more options, visit https://groups.google.com/d/optout.
--
Thanks Jeremy,
This is my model:
EMI_2 <- '
GE =~ EMI6 + EMI20 + EMI34 + EMI46
REV =~ EMI3 + EMI17 + EMI31
PRA =~ EMI9 + EMI23 + EMI37 + EMI48
DES =~ EMI14 + EMI28 + EMI42 + EMI51
RS =~ EMI5 + EMI19 + EMI33 + EMI45
AFI =~ EMI10 + EMI24 + EMI38 + EMI49
COM =~ EMI12 + EMI26 + EMI40 + EMI50
PRS =~ EMI11 + EMI25 + EMI39
PRV =~ EMI2 + EMI16 + EMI30
SAP =~ EMI7 + EMI21 + EMI35
CON =~ EMI1 + EMI15 + EMI29 + EMI43
APA =~ EMI4 + EMI18 + EMI32 + EMI44
FOR =~ EMI8 + EMI22 + EMI36 + EMI47
AGI =~ EMI13 + EMI27 + EMI41
'
> fit<-cfa(EMI_2, data=dataBD, ordered=ord)
I do have very large MI for some items, but since the overall fit is good I did not add any item’s correlations.
Best
Jº
Yes, I have correlated items, removed them, but still the same problem. All item’s loadings are above .5, so local fit problems don’t seem to exist. All items have |sk| and |ku| smaller than 2…
I am running out of ideas (other than to increase sample size) on how to tackle the problem. Will research on the Cholesky implementation in lavaan.
Best,
Yes, my MI go from 90+… to 400 ☹ for example:
> mi[mi$op == "~~",]
lhs op rhs mi epc sepc.lv sepc.all sepc.nox
2516 EMI27 ~~ EMI41 403.957 0.323 0.323 2.000 2.000
2267 EMI25 ~~ EMI30 209.811 0.311 0.311 0.891 0.891
1911 EMI5 ~~ EMI4 193.139 0.343 0.343 0.664 0.664
2515 EMI13 ~~ EMI41 169.946 -0.255 -0.255 -1.437 -1.437
2514 EMI13 ~~ EMI27 156.603 -0.247 -0.247 -1.195 -1.195
2481 EMI32 ~~ EMI44 155.238 0.179 0.179 0.764 0.764
2426 EMI15 ~~ EMI29 142.210 0.174 0.174 0.887 0.887
2497 EMI8 ~~ EMI36 132.468 0.150 0.150 0.606 0.606
2329 EMI16 ~~ EMI21 92.656 0.140 0.140 0.797 0.797
It’s a large instrument (51 items) and 14 factors… So it will take me a while to adapt your example. Thanks for your input.