Create week5.R