# This example reproduces some results presented in Table 4 of Thomas and Grunkemeier (1975)
Res2SKM95 <- TwoSampleKaplanMeier(time=Freireich$time,
status=Freireich$status,
group=Freireich$group,
t=10)
print(Res2SKM95, digits=3, what="SR", method="EL")
Run the code above in your browser using DataLab