R Intermediate Practice Question 28