R Advanced Practice Question 1