R Advanced Practice Question 8