data("tMdat")
## tMdat is small simulated data set included in twangMedRiation for
## demonstrating the functions. See ?tMdat for details
fit.es.max <- wgtmed(M ~ w1 + w2 + w3,
data = tMdat,
a_treatment = "A",
y_outcome = "Y",
total_effect_wts = tMdat$te.wgt,
method = "logistic"
)
bal.table.mediation(fit.es.max)
Run the code above in your browser using DataLab