R Advanced Practice Question 4