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

shengying

检验吸烟与肺癌是否有关系有如下数据：
# }" }, Z& {' l! ]7 @2 T" S, `肺癌 有 无
( e) _! ]9 \6 g% m0 U1 D0 u8 b吸烟 8 5
不吸烟 3 10
1 A8 V3 H. e, h6 O0 F4 p) e求出检验的p值，并在显著性水平为0.05时给出结论
: V4 o" }/ D, Y. R9 a8 P, C
R的检验程序这么写的：
7 c2 D& C1 `/ T2 Z x=c(8,3,5,10);
, Z' S" W& V" t2 v; I> data<-matrix(x, nrow=2);
> fisher.test(data)
> chisq.test(data)
对吗？
" s$ t" f  s0 [/ L% Y6 M/ _