R Advanced Practice Question 22