Week 5 R Assignment