R语言 简单中介效应的代码

R语言是一种广泛使用的统计计算语言，它提供了许多用于数据分析和可视化的函数和工具。

简单中介效应是指通过中介变量间接影响因变量的过程。在R语言中，可以使用mediation包来实现简单中介效应的计算。下面是一个简单的示例代码：

#加载必要的库
library(mediation)

#生成模拟数据
set.seed(123)
x <- rnorm(100)
m <- 0.5 * x + rnorm(100)
y <- 1.5 * m + 0.8 * x + rnorm(100)

#运行简单中介效应模型
model <- lm(y ~ x)
med.fit <- lm(m ~ x)
med.out <- mediate(model, med.fit, treat = "x", mediator = "m")
summary(med.out)

上述代码首先加载了mediation包，然后生成了一个简单的模拟数据，接着运行了一个简单中介效应模型，并使用summary函数输出结果。

如果你想了解更多关于R语言中介分析的相关内容，可以参考mediation包的文档和教程。