event_prediction_KM function

Event prediction using a lifetable and a recruitment RCurve