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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
吸烟 8 5
不吸烟 3 10
求出检验的p值，并在显著性水平为0.05时给出结论

1 i- O% r% @, V' J% l* X/ p' ZR的检验程序这么写的：
/ C. I" d0 u6 ]! w9 Z6 ? x=c(8,3,5,10);
> data<-matrix(x, nrow=2);
/ i" T6 c5 u/ V/ l* O8 U( g* ^> fisher.test(data)
6 j5 w; K$ Z! L; D& g> chisq.test(data)
对吗？
" p" E9 X5 ^, e2 a$ h7 O& N; f
( f' |' v0 G+ ~# _, a* v3 g