R Intermediate Practice Question 15