# NOT RUN {
data(sim.weights)
set.seed(1)
vartest.msmediate.concurrent(data = sim.weights, y = "y", treatment = "tr",
mediator = c("me", "me2"), response = "R", XR1 = c("x1", "x2", "x3"), XR0 = c("x1",
"x2", "x3"), XM11 = c("x1", "x2", "x3"), XM10 = c("x1", "x2", "x3"),
XM21 = c("x1", "x2", "x3"), XM20 = c("x1", "x2", "x3"), site = "site",
sample.weight = "WD", npermute = 2)
# }
Run the code above in your browser using DataLab