Update GetData.R

Adding avg