使用二分主持人和预测者以及四个连续调解者进行调解

Question

我对调解模型的模型规范存在疑问。我正在做一个项目，在这个项目中，我试图模拟情绪体验在条件与连续结果之间的中介作用。

Model visualization here

我本来打算使用lavaan，但我正在努力正确地指定模型；特别是在何处以及如何实施主持人。

我建议，不同的条件对情感体验的影响不同，而访问社交媒体（相对于没有访问权限）会影响这种效果。

因此，我认为我已经相当正确地对中介模型进行了建模，但是我不知道在何处以及如何添加主持人。

zz <- "M1   M2   M3   M4   DV1   DV2   MO   IV
1      1.0  1.6  3.4  4.1  6.0   2.6   0.5  2.0  
2      2.5  2.2  2.8  2.5  3.1   5.0   0.5  2.0
3      3.0  3.4  6.4  1.0  6.8   3.1   0.5  2.0
4      4.8  3.6  4.4  2.1  4.4   4.3   -0.5 1.0
5      3.5  4.0  3.8  3.8  4.3   3.5   -0.5 1.0"

Data <- read.table(text = zz,
                   header = TRUE)

我的模型规格看起来像这样（没有主持人）

model <- " # direct effect
         DV1 ~ c1*IV
         DV2 ~ c2*IV

       # mediators
         M1  ~ a1*IV
         DV1 ~ b11*M1
         DV2 ~ b12*M1

         M2  ~ a2*IV
         DV1 ~ b21*M2
         DV2 ~ b22*M2

         M3  ~ a3*IV
         DV1 ~ b31*M3
         DV2 ~ b32*M3

         M4  ~ a4*IV
         DV1 ~ b41*M4
         DV2 ~ b42*M4

       # indirect effect (a*b)
         indirect.disconnect := a1*b11 + a2*b21 + a3*b31 + a4*b41
         indirect.selfesteem := a1*b12 + a2*b22 + a3*b32 + a4*b42

       # total effect
         total.disconnect := c1 + a1*b11 + a2*b21 + a3*b31 + a4*b41
         total.selfesteem := c2 + a1*b12 + a2*b22 + a3*b32 + a4*b42"

fit <- sem(model,
       data = dat_sem)

summary(fit,
    standardized = TRUE,
    fit.measures = TRUE)

希望这是发布此问题的正确位置。

谢谢大家！