R Advanced Practice Question 7