R Intermediate Practice Question 7