powered by
AdjustHendersonTilton(smoothedObservedProportion, ps0 = smoothedObservedProportion[1], p1 = 1)