모델 적합도 분석

R로 배우는 요인분석

Jennifer Brussow

Psychometrician

기본 적합도 통계량

카이제곱 검정(로그 우도 검정)이 기본값

summary(theory_CFA)

 Model Chisquare =  2231.647   Df =  265 Pr(>Chisq) = 1.695873e-307

표본 크기로 인해 유의한 경우가 많음
유의하지 않은 결과가 바람직한 결과

옵션 변경

options(fit.indices = c("CFI", "GFI", "RMSEA", "BIC"))

RMSEA < 0.05
GFI (적합도 지수) > 0.90
CFI (비교 적합도 지수) > 0.90

절대적 모델 적합도

summary(theory_CFA)

 Model Chisquare =  2305.159   Df =  271 Pr(>Chisq) = 0

 Goodness-of-fit index =  0.8527977

 RMSEA index =  0.07815051   90% CI: (NA, NA)

 Bentler CFI =  0.7754574

상대적 적합도

summary(theory_CFA)

 Model Chisquare =  2305.159   Df =  271 Pr(>Chisq) = 8.422189e-319
 Goodness-of-fit index =  0.8527977
 RMSEA index =  0.07815051   90% CI: (NA, NA)
 Bentler CFI =  0.7754574
 BIC =  377.0563

summary(theory_CFA)$BIC

326.618

상대적 적합도: 모델 비교

summary(theory_CFA)$BIC

326.618

# Run a CFA using the EFA syntax you created earlier
EFA_CFA <- sem(EFA_syn, data = bfi_CFA)
summary(EFA_CFA)$BIC

377.0563

동일 데이터셋에 적합된 내재 모델 비교에 유용
해당 조건이 충족되지 않으면 사용 금지!

연습해 봅시다!

R로 배우는 요인분석