# This example reproduces some results presented in Table 1 of Thomas and Grunkemeier (1975)
ResKM.1.95 <- KaplanMeier(time=Freireich$time[Freireich$group==1],
status=Freireich$status[Freireich$group==1],
t=10, level=0.95, contr=list(tol=1e-4))
ResKM.1.95
Run the code above in your browser using DataLab