R Fisher精确检验

以使用fisher.test()函数进行Fisher精确检验。Fisher精确检验的原假设是：边界固定
的列联表中行和列是相互独立的。其调用格式为fisher.test(mytable)，其中的mytable是
一个二维列联表。示例如下

> library(vcd) 

> mytable <- xtabs(~Treatment+Improved, data=Arthritis) 
> fisher.test(mytable) 
 Fisher's Exact Test for Count Data 
data: mytable 
p-value = 0.001393 
alternative hypothesis: two.sided

与许多统计软件不同的是，这里的fisher.test()函数可以在任意行列数大于等于2的二维
列联表上使用，但不能用于2×2的列联表。