R Advanced Practice Question 10