week2.R