### logrank test with exact two-sided p-value
lrt <- surv_test(Surv(time, event) ~ stadium, data = ocarcinoma,
distribution = "exact")
### the test statistic
statistic(lrt)
### p-value
pvalue(lrt)
Run the code above in your browser using DataLab