R Intermediate Practice Question 12