data(kidney,package="KMsurv")
s <- survfit(Surv(time=time, event=delta) ~ type, data=kidney )
compSurvfit(s)
data(gastric)
s1 <- survfit(Surv(time=time,event=event) ~ group, data=gastric)
compSurvfit(s1)
data(bmt,package="KMsurv")
b1 <- bmt[bmt$group==1,]
s2 <- survfit(Surv(time=t2, event=d3) ~ group, data=bmt)
compSurvfit(s2)Run the code above in your browser using DataLab