Update GetData.R