Создание опосредованной модели модерации первого этапа, проблемы синтаксиса
Как я могу создать модель опосредованной модерации на первом этапе в 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)
1 ответ
У меня есть полный код, примеры наборов данных и пошаговое руководство.pdf, как это сделать здесь.
Соответствующая часть из.pdf:
Модерируемая медиация "Первая стадия" (ПРОЦЕСС Модель 7)
Путь модели посредничества может быть модерирован другой переменной. Хейс (2015) называет это "первым этапом" модерируемого посредничества, поскольку модерация происходит на первом пути. Код очень похож, за исключением того, что теперь вы должны сначала создать переменную взаимодействия между независимой переменной и переменной модератора:
data$ivxmod <- data$iv*data$mod
Я назвал новую переменную "ivxmod
", Но вы можете назвать это как хотите. Просто не забудьте использовать то же имя переменной в коде ниже. Указание модели очень похоже на базовую модель посредничества:
model7 <- "med ~ a1*iv + a2*mod + a3*ivxmod
dv ~ cp*iv + b*med
imm := a3*b"
Вы можете видеть, что теперь посредник предсказывается независимой переменной, модератором и взаимодействием между ними. Вторая строка такая же, как базовая медиация. Третья строка определяет индекс модерируемой медиации путем простого умножения веса взаимодействия на пути на вес регрессии на пути 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