R Programming Week 3 - Assignment 3