R Intermediate Practice Question 13