Week 5 R quiz