Week 6 R quiz