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)~cluster(id)+dukes+
charlson+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