R Programming Week 2 Programming Assignment