estimate_peak function

Estimate the peak date of an incidence curve