Week 7 R Assignment