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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
# f7 `* f  r. v0 V( D6 y' ^吸烟 8 5
: h5 v- C& f* i9 ]+ L不吸烟 3 10
, [% ^" b7 g% D5 x求出检验的p值，并在显著性水平为0.05时给出结论

R的检验程序这么写的：
x=c(8,3,5,10);
> data<-matrix(x, nrow=2);
' x0 \: |1 t; b9 m> fisher.test(data)
> chisq.test(data)
, M+ f2 r7 o) S7 x$ D5 V0 e1 t( \对吗？
! j% z5 H9 M8 V* o. l
% _+ Q+ e& O2 X, x7 w; N2 F