## load data
data(readmission)
## a frailtypenal fit
fit.frailtypenal <- frailtyPenal(Surv(time,event)~dukes+cluster(id)+
charlson+chemo+strata(sex),data=readmission,Frailty=TRUE,n.knots=10,
kappa1=1,kappa2=1)
## a Cmeasures call
fit.Cmeasures <- Cmeasures(fit.frailtypenal)
## a short summary
print(fit.Cmeasures)
Run the code above in your browser using DataLab