# NOT RUN {
data(TRACE)
m1 <- phreg(Surv(time,status==9)~vf+chf+diabetes,data=TRACE)
gg <- gof(m1)
par(mfrow=c(1,3))
plot(gg)
m1 <- phreg(Surv(time,status==9)~strata(vf)+chf+diabetes,data=TRACE)
gg <- gof(m1)
# }
Run the code above in your browser using DataLab