Create week1.r