Create week3.r