我目前正在使用lavaan 包进行R结构方程模型。我想计算每个路径系数的效应大小(即部分 eta 平方)。已经有一个包可以做到这一点吗?
例如,如何计算c、a和b回归系数的效应大小?
set.seed(1234)
X <- rnorm(100)
M <- 0.5*X + rnorm(100)
Y <- 0.7*M + rnorm(100)
Data <- data.frame(X = X, Y = Y, M = M)
model <- ' # direct effect
Y ~ c*X
# mediator
M ~ a*X
Y ~ b*M
# indirect effect (a*b)
ab := a*b
# total effect
total := c + (a*b)
'
fit <- sem(model, data = Data)
summary(fit) …Run Code Online (Sandbox Code Playgroud) 我正在运行一个路径分析模型,但似乎模型拟合指数是完美的:CFI = 1.00,RMSEA = 0.00。然而,完美的模型拟合通常表明模型饱和。但似乎我的模型并非如此,因为我有额外的自由度。那么,如何解释CFI和RMSEA呢?非常感谢你的帮助!
lavaan (0.5-21) converged normally after 39 iterations
Number of observations 109
Number of missing patterns 6
Estimator ML
Minimum Function Test Statistic 6.199
Degrees of freedom 11
P-value (Chi-square) 0.860
Model test baseline model:
Minimum Function Test Statistic 150.084
Degrees of freedom 20
P-value 0.000
User model versus baseline model:
Comparative Fit Index (CFI) 1.000
Tucker-Lewis Index (TLI) 1.067
Loglikelihood and Information Criteria:
Loglikelihood user model (H0) -1000.419
Loglikelihood unrestricted model …Run Code Online (Sandbox Code Playgroud)