data(dataDIVAT3)
### a short summary of the recipient age at the transplantation
summary(dataDIVAT3$ageR)
### Kaplan and Meier estimation of the recipient survival
plot(survfit(Surv(death.time/365.25, death) ~ 1, data = dataDIVAT3),
xlab="Post transplantation time (in years)", ylab="Patient survival",
mark.time=FALSE)
Run the code above in your browser using DataLab