Create week3.R

Need to be modified