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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
吸烟 8 5
不吸烟 3 10
) ^; a$ I( I& l! p/ w求出检验的p值，并在显著性水平为0.05时给出结论

, U; E* k" ]1 {1 R7 X3 dR的检验程序这么写的：
x=c(8,3,5,10);
> data<-matrix(x, nrow=2);
> fisher.test(data)
" r/ Q7 ]/ g8 e" N$ c1 I* f5 Y+ J> chisq.test(data)
' z' _3 B; f, D% l对吗？