我想预测2016年第一季度数据的预付款的累积风险，其中贷款等级为A。我的数据截至MOB（账面上的月数）为27，但想预测36个月的数据。 / p>
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)
此预测输出，我相信危险比，但我希望每个月都有预付款的可能性。我怎么找到这个？
谢谢