Update confidence_intervals.R