Create getData.r