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

shengying

检验吸烟与肺癌是否有关系有如下数据：
" O# O! R* B  i) j4 x+ L肺癌 有 无
. M. C7 L* n: e' \: I  s5 v$ b( z! a吸烟 8 5
1 M  s! a! b. k" M- a- i不吸烟 3 10
求出检验的p值，并在显著性水平为0.05时给出结论

, Z# V6 j" j+ s& y" C7 oR的检验程序这么写的：
x=c(8,3,5,10);
( |9 E( \: q; w% |> data<-matrix(x, nrow=2);
- E7 q; ^3 c+ x3 S> fisher.test(data)
! R9 o% v5 b; |9 G( e8 `> chisq.test(data)
对吗？
0 D' v- u# U/ T( {+ s