Create getData.R