Create part3.r