How to calculate marginal effect in r