data_med_mod_serial_parallel: Sample Dataset: Serial-Parallel Mediation with Two Moderators
In manymome: Mediation, Moderation and Moderated-Mediation After Model Fitting

data_med_mod_serial_parallel

R Documentation

Sample Dataset: Serial-Parallel Mediation with Two Moderators

Description

A serial-parallel mediation model with some paths moderated.

Usage

data_med_mod_serial_parallel

Format

A data frame with 100 rows and 9 variables:

x: Predictor. Numeric.
w1: Moderator 1. Numeric.
w2: Moderator 2. Numeric.
m11: Mediator 1 in Path 1. Numeric.
m12: Mediator 2 in Path 2. Numeric.
m2: Mediator 2. Numeric.
y: Outcome variable. Numeric.
c1: Control variable. Numeric.
c2: Control variable. Numeric.

Examples

library(lavaan)
data(data_med_mod_serial_parallel)
data_med_mod_serial_parallel$xw1 <-
 data_med_mod_serial_parallel$x *
 data_med_mod_serial_parallel$w1
data_med_mod_serial_parallel$m2w2 <-
 data_med_mod_serial_parallel$m2 *
 data_med_mod_serial_parallel$w2
mod <-
"
m11 ~ a1 * x + w1 + da11 * xw1 + c1 + c2
m12 ~ b11 * m11 + x + w1 + c1 + c2
m2 ~ a2 * x + c1 + c2
y ~ b12 * m12 + b2 * m2 + m11 + x + w1 + w2 + db2 * m2w2 + c1 + c2
w1 ~~ v_w1 * w1
w1 ~ m_w1 * 1
w2 ~~ v_w2 * w2
w2 ~ m_w2 * 1
a1b11b22 := a1 * b11 * b12
a2b2 := a2 * b2
ab := a1b11b22 + a2b2
a1b11b12_w1lo := (a1 + da11 * (m_w1 - sqrt(v_w1))) * b11 * b12
a1b11b12_w1hi := (a1 + da11 * (m_w1 + sqrt(v_w1))) * b11 * b12
a2b2_w2lo := a2 * (b2 + db2 * (m_w2 - sqrt(v_w2)))
a2b2_w2hi := a2 * (b2 + db2 * (m_w2 + sqrt(v_w2)))
"
fit <- sem(mod, data_med_mod_serial_parallel,
           meanstructure = TRUE, fixed.x = FALSE)
parameterEstimates(fit)[parameterEstimates(fit)$label != "", ]

manymome documentation built on Oct. 4, 2024, 5:10 p.m.