Added bits of R Code...