R Intermediate Practice Question 2