R Intermediate Practice Question 21