#Fit the survival probability for an individual with extent 1 and
#differentiation 2 at 700 days from a Weibull regression using the
#colon cancer data set distributed as part of the survival package.
fit<-survreg(Surv(time,status)~factor(extent)+differ,data=colon)
survregpredict(fit,data.frame(extent=1,differ=2),700)
Run the code above in your browser using DataLab