R Advanced Practice Question 21