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

shengying

检验吸烟与肺癌是否有关系有如下数据：
( S1 U7 [. \7 R5 G( o* k( Z肺癌 有 无
吸烟 8 5
不吸烟 3 10
8 b0 o9 K  Z7 S, u: R% H$ n求出检验的p值，并在显著性水平为0.05时给出结论
3 F; J) C: k- U5 _. ^1 ?
* Y; x( \. K: ^) ]1 }; q2 uR的检验程序这么写的：
7 q; E3 O' i$ |# Y" U- ]6 u x=c(8,3,5,10);
% ]) F! s+ w' }* P/ d> data<-matrix(x, nrow=2);
> fisher.test(data)
. k& s5 f& p* D% p( d6 v% `> chisq.test(data)
& \$ s7 N& `% R- k/ K+ @对吗？

# k+ s( j" Y1 S1 E0 C8 g8 y