# NOT RUN {
data(dataDIVAT2)
#Survival according to the donor status (ECD versus SCD)
res <- summary(survfit(Surv(times,failures) ~ ecd, data=dataDIVAT2))
#The mean survival time in ECD recipients followed-up to 10 years
rmst(times=res$time[as.character(res$strata)=="ecd=1"],
surv.rates=res$surv[as.character(res$strata)=="ecd=1"],
max.time=10)
#The mean survival time in SCD recipients followed-up to 10 years
rmst(times=res$time[as.character(res$strata)=="ecd=0"],
surv.rates=res$surv[as.character(res$strata)=="ecd=0"],
max.time=10)
# }
Run the code above in your browser using DataLab