Update GetData.R

Change the year