Create GettingData.R