Week 4 R Assignment