Create Week4.R