Nathan's Week 4 R assignment

Week 4 R assignment