R Programming - Assignment 3