R Intermediate Practice Question 25