R Intermediate Practice Question 10