Rprogramming - Assignment 3