R Advanced Practice Question 23