Path Analysis In R