data("BSG2014")
# run fast-and-robust bootstrap test
boot <- test_mediation(BSG2014,
x = "SharedLeadership",
y = "TeamPerformance",
m = c("ProceduralJustice",
"InteractionalJustice"),
covariates = c("AgeDiversity",
"GenderDiversity"))
summary(boot)
# now include comparison of indirect effects
retest(boot, contrast = "estimates")
Run the code above in your browser using DataLab