Mediation for Binary Outcome (logistic regression) in R - Method # 3