Cmeasures(fitc, ties = 1, marginal = 0, cindex = 0, Nboot = 0)print.Cmeasures,
frailtyPenal## load data
data(readmission)
## a frailtypenal fit
fit.frailtypenal <-frailtyPenal(Surv(time,event)~as.factor(dukes)+cluster(id)+
as.factor(charlson)+as.factor(chemo),data=readmission,Frailty=TRUE,
cross.validation=FALSE,n.knots=10,kappa1=1,hazard="Splines")
## a Cmeasures call
fit.Cmeasures <- Cmeasures(fit.frailtypenal)
fit.Cmeasures.noties <- Cmeasures(fit.frailtypenal, ties=0)
## a short summary
fit.Cmeasures
fit.Cmeasures.notiesRun the code above in your browser using DataLab