data(bmt, package="KMsurv")
b1 <- bmt[bmt$group==1, ] # ALL patients
s1 <- Surv(time=b1$t2, event=b1$d3)
calcSurv(s1)
data.frame(calcSurv(s1, round=4)[1:4],
round(sqrt(calcSurv(s1)[5]),4),
calcSurv(s1, round=4)[7],
round(sqrt(calcSurv(s1)[8]),4)
)
data(bmt, package="KMsurv")
b1 <- bmt[bmt$group==2, ] # AML patients
s1 <- Surv(time=b1$t2, event=b1$d3)
calcSurv(s1)
Run the code above in your browser using DataLab