R Intermediate Practice Question 1