# NOT RUN {
TR <- ovarian[1:16,]
TE <- ovarian[17:26,]
train.fit <- coxph(Surv(futime, fustat) ~ age,
x=TRUE, y=TRUE, method="breslow", data=TR)
lpnew <- predict(train.fit, newdata=TE)
GHCI(lpnew)
# }
Run the code above in your browser using DataLab