R Intermediate Practice Question 16