I can't figure out why my multiple mediation model has such terrible fit indices. Any suggestions?
multipleMediation <- '
SIR_Total ~ b1 * IUS_Total + b2 * DTS_Total + b3 * OASM_Insecure + c * R_LSC_S1
IUS_Total ~ a1 * R_LSC_S1
DTS_Total ~ a2 * R_LSC_S1
OASM_Insecure ~ a3 * R_LSC_S1
indirect1 := a1 * b1
indirect2 := a2 * b2
indirect3 := a3 * b3
total := c + (a1 * b1) + (a2 * b2) + (a3 * b3)
'
fit <- sem(model = multipleMediation, data = LSH_R_2, estimator = "MLM")
summary(fit, fit.measures = TRUE, standardized = TRUE)
Comparative Fit Index (CFI) 0.565 0.553
Tucker-Lewis Index (TLI) -0.449 -0.489
RMSEA 0.380 0.351
90 Percent confidence interval - lower 0.319 0.295
90 Percent confidence interval - upper 0.445 0.411
P-value H_0: RMSEA <= 0.050 0.000 0.000
P-value H_0: RMSEA >= 0.080 1.000 1.000
Robust RMSEA 0.379
90 Percent confidence interval - lower 0.313
90 Percent confidence interval - upper 0.449
P-value H_0: Robust RMSEA <= 0.050 0.000
P-value H_0: Robust RMSEA >= 0.080 1.000
Standardized Root Mean Square Residual:
SRMR 0.197 0.197