Create week2.r