R Programming - Assignment2