R Intermediate Practice Question 4