Я хочу предсказать совокупный риск предоплаты для данных за первый квартал 2016 года, где уровень ссуды был A. У меня есть данные до MOB (месяц в книге) 27, но я хочу прогнозировать до месяца 36.
sr.a_q2_16 <-
survreg(Surv(time=MOB,event=prepay)~1,data=q2_16[which(q1_16[,"grade"]=="A"),])
pred_a_q1_16 <- predict(sr.a_q1_16,newdata=data.frame(MOB=36),type="quantile",p=pct)
Этот прогноз выводит, я полагаю, коэффициент риска, но я хочу вероятность предоплаты за каждый месяц. Как я могу найти это?
Спасибо