R Intermediate Practice Question 5