R Advanced Practice Question 16