create avg_estimate.R