Update Week3Assignment.R