data("tMdat")## tMdat is small simulated data set included in twangMediation for ## demonstrating the functions. See ?tMdat for detailsfit.es.max <- wgtmed(M ~ w1 + w2 + w3, data = tMdat, a_treatment ="A", y_outcome ="Y", total_effect_wts = tMdat$te.wgt, method ="ps", ps_n.trees=1500, ps_shrinkage=0.01, ps_stop.method=c("es.max"))print(fit.es.max)