Part 3 r programming