Create Week1.R