Path analysis in r