data("BSG2014")
# run bootstrap test after winsorization
ctrl <- cov_control(prob = 0.95)
boot <- test_mediation(BSG2014,
x = "ValueDiversity",
y = "TeamCommitment",
m = "TaskConflict",
method = "covariance",
control = ctrl)
summary(boot)
Run the code above in your browser using DataLab