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.noties
Run the code above in your browser using DataLab