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

shengying

检验吸烟与肺癌是否有关系有如下数据：
) O8 e' s$ _2 L. d肺癌 有 无
$ D  `* p2 ]; y4 E1 z1 P吸烟 8 5
2 f5 d8 O; C  R0 X+ @! |, k) {不吸烟 3 10
5 `8 t2 b- O+ O2 {求出检验的p值，并在显著性水平为0.05时给出结论
7 \( J/ Q( |9 |% P) I1 D6 b: `3 }
R的检验程序这么写的：
x=c(8,3,5,10);
> data<-matrix(x, nrow=2);
) n1 F* ]. g: |2 T! Z- D5 R4 g5 {: m> fisher.test(data)
+ g/ S9 o8 j9 X> chisq.test(data)
对吗？
* R' }$ l+ ~: {7 q0 L
$ [. a$ D' h0 k0 Q& U