R Advanced Practice Question 30