MWD (MACKINNON, WHITE AND DAVIDSON) In R