R Intermediate Practice Question 8