powered by
Surv
calcSurv(s)
tneSurv
survEst
data(bmt, package="KMsurv") b1 <- bmt[bmt$group==1, ] # ALL patients s1 <- Surv(time=b1$t2, event=b1$d3) calcSurv(s1)
Run the code above in your browser using DataLab