Create 246hw5_q3.r