R Intermediate Practice Question 30