创建第一阶段中介审核模型，语法问题

Question

如何在 R 中创建第一阶段中介调节模型？我一直在尝试在 lavaan 中编写这样的模型，

但我运行遇到了尝试改编 laavan 网页代码的问题。

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)
summary(fit)

Answer 1

I have full code, example datasets, and a .pdf walk-through of how to do this here.

.pdf 中的相关部分：

“第一阶段”调解（过程模型 7）

中介模型的路径可能由其他一些变量调节。 Hayes (2015) 称此为“第一阶段”适度调解，因为适度发生在第一条路径上。代码非常相似，只是现在您必须首先在自变量和调节变量之间创建一个交互变量：

data$ivxmod <- data$iv*data$mod

我将新变量命名为“ivxmod”，但您可以随意命名。请记住在下面的代码中使用相同的变量名。指定模型与基本中介模型非常相似：

model7 <- "med ~ a1*iv + a2*mod + a3*ivxmod
           dv ~ cp*iv + b*med
           imm := a3*b"

你可以看到，现在中介变量是由自变量、调节变量以及两者之间的交互作用来预测的。第二行与基本调解相同。第三行是通过简单地将 a 路径上的交互权重与 b 路径上的回归权重相乘来定义调节调解的指数。拟合和检查模型与之前的代码大致相同：

set.seed(1839)
model7.fit <- sem(model=model7, data=data, se = "boot", bootstrap = 5000)
model7parameters <- parameterEstimates(model7.fit, boot.ci.type="bca.simple")
model7parameters # all parameters
model7parameters[14,c(1,5,9,10)] # just stuff relevant for index of moderated mediation

创建第一阶段中介审核模型，语法问题

Creating a first stage mediated moderation model, syntax issues

r

r-lavaan

“第一阶段”调解（过程模型 7）