В настоящее время я сталкиваюсь с проблемой оценки эффекта посредничества с помощью функции mediate
из пакета R mediation
.
Я запускаю три панели регрессии с plm
из пакета R plm
:
TERR1_us <- plm(log(POLSTAB+1) ~ log(US+1) + RDURAB + DEMOC + log(POP+1) +MUS, data = US, index = c('NUMBER', "YEAR"), model = 'within', effect = "individual")
TERR2_us<- plm(log(TERROR+1) ~ log(US+1) + RDURAB + DEMOC +log(POP+1)+ MUS, data = US, index = c('NUMBER', "YEAR"), model = 'within', effect = "individual")
TERR3_us <- plm(log(POLSTAB+1) ~ log(US+1) + RDURAB + DEMOC +log(POP+1)+MUS +log(TERROR+1), data = US, index = c('NUMBER', "YEAR"), model = 'within', effect = "individual")
Чтобы проверить значение посредничества, я запускаю тест начальной загрузки.
results_terr_us <- mediate(TERR2_us, TERR_us, treat="US", mediator="TERR",
boot=TRUE, sims=100)
К сожалению, я всегда получаю сообщение об ошибке Ошибка в [.data.frame
(x,, " США "): выбраны неопределенные столбцы
Обе модели имеют одинаковое количество наблюдений. Я не думаю, что есть запятые, которые я установил неправильно.