Create createEstimationData.R