Update Week1.R