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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
: |. B+ D# a1 b2 O" @6 o( P( B吸烟 8 5
不吸烟 3 10
( J8 o) B9 _& ^' M, R求出检验的p值，并在显著性水平为0.05时给出结论
9 O3 `" I4 D$ n& Z
3 F4 p- a2 D6 }1 L, n2 ?R的检验程序这么写的：
( O0 `9 B# Q) S7 Z x=c(8,3,5,10);
> data<-matrix(x, nrow=2);
> fisher.test(data)
> chisq.test(data)
2 M: c) I9 Q2 Q7 r对吗？