Create estimate.R