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, type = "s")
#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, type = "s")
Run the code above in your browser using DataLab