Week 8 R Assignment