# 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))
print(ResKM.1.95, digits=3, type="surv", method="EL") # EL results for survival
print(ResKM.1.95, digits=3, type="risk", method="Wald") # Wald results for risk
Run the code above in your browser using DataLab