R Advanced Practice Question 6