fit.totaleffect <- lmer(Y ~ TimePoint + X1 + X2 + X3 + covariate1 + covariate2 + (1 + TimePoint | ID), data = df)
fit.mediator <- lmer(M ~ TimePoint + X1 + X2 + X3 + covariate1 + covariate2 + (1 + TimePoint | ID), data = df)
fit.dv <- lmer(Y ~ M + TimePoint + X1 + X2 + X3 + covariate1 + covariate2 + (1 + TimePoint | ID), data = df)
# mediation analysis
results_x1 <- mediation::mediate(fit.mediator, fit.dv, treat='X1', mediator='M', sims = 500)
summary(results_x1)
results_x2 <- mediation::mediate(fit.mediator, fit.dv, treat='X2', mediator='M', sims = 500)
summary(results_x2)
results_x3 <- mediation::mediate(fit.mediator, fit.dv, treat='X3', mediator='M', sims = 500)
summary(results_x3)
I want to investigate whether
Mmediates the relationship of multiple independent variables (X1,X2,X3) onY. I use the mediation package in R. Is this approach of running 3 mediation analysis withtreat = 'X1',treat = 'X2'andtreat = 'X3'correct?