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

shengying

检验吸烟与肺癌是否有关系有如下数据：
+ Z& n0 j: ]1 K9 A肺癌 有 无
9 }: l! K( G2 ]9 ]吸烟 8 5
不吸烟 3 10
求出检验的p值，并在显著性水平为0.05时给出结论

R的检验程序这么写的：
  X2 M* a1 g9 F8 [5 s3 R x=c(8,3,5,10);
> data<-matrix(x, nrow=2);
> fisher.test(data)
. S4 Q1 n" f, q4 G0 @' I) Z> chisq.test(data)
, J& N# z. b& s1 J5 k0 I对吗？
2 Q! R- }, R% i