楼主,你应该告诉别人你用的是什么代码?
这样才能更好的验证还有,看作者原文章上写的用哪个软件运行的?
> challenge.df = matrix(c(14,8608,21,10197659), nrow = 2)
> fisher.test(challenge.df)
Fisher's Exact Test for Count Data
data: challenge.df
p-value < 2.2e-16
alternative hypothesis: true odds ratio is not equal to 1
95 percent confidence interval:
368.2732 1600.0000
sample estimates:
odds ratio
798.1286
里面还有一些参数可以调整,你可以试试,我用2.14算出来也是。
http://stat.ethz.ch/R-manual/R-patched/library/stats/html/fisher.test.html