Update week-2-getting-data.R