Create week4.r