用R做fisher exact test和卡方检验，大家帮忙看看啊

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
吸烟 8 5
不吸烟 3 10
求出检验的p值，并在显著性水平为0.05时给出结论

R的检验程序这么写的：
x=c(8,3,5,10);
% `9 \; t. y2 g$ L* n> data<-matrix(x, nrow=2);
9 ^- D; B9 g- y" I( t> fisher.test(data)
> chisq.test(data)
* q& j3 u; |1 h5 z) q; t1 l对吗？

2 z9 j* [. e* ?' g- u9 t