R b路径上的仲裁仅使用；“调解”；包裹

基于这篇精彩的文章，我试图运行我自己的调节中介，但我的模型只有b路径上的二分法调节器

代码如下所示：

library(mediation)

Model.m<-lm(mpg ~ drat, data = mtcars)

Model.y<-lm(disp ~ mpg*vs + drat, data = mtcars)

Mod.Med.vs1 <- mediate(model.m = Model.m, model.y =  Model.y,    
                       covariates = list(vs = 1),
                       boot = TRUE,   
                       boot.ci.type = "bca", sims = 2000, mediator="mpg", treat="drat")

# Here I get the error

Mod.Med.vs0 <- mediate(model.m = Model.m, model.y =  Model.y,    
                       covariates = list(vs = 0),
                       boot = TRUE,   
                       boot.ci.type = "bca", sims = 2000, mediator="mpg", treat="drat")

Mod.Med     <- mediate(model.m = Model.m, model.y =  Model.y,    
                  boot = TRUE,   
                  boot.ci.type = "bca", sims = 2000, mediator="mpg", treat="drat")

重要的是，如果我在

Model.m

中将

drat

与

vs

相乘，效果会很好，但同样，我对在调解人之前调查调解人的影响不感兴趣

有什么建议吗

Error in `[.data.frame`(pred.data.t, , vl) : undefined columns selected