Update GetData.R

Check