R Coding Week 3 Assignment