Update GetData.R

Test