R Advanced Practice Question 13