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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
0 r% R" D! P% v) \# x# o7 y吸烟 8 5
不吸烟 3 10
! v: j: W0 j+ y求出检验的p值，并在显著性水平为0.05时给出结论

: T; z6 w& f3 ]2 p! B& ~  n+ F$ @- A6 tR的检验程序这么写的：
x=c(8,3,5,10);
2 y* R$ V% w4 @/ J, k$ p> data<-matrix(x, nrow=2);
2 ^2 c. g  c- L  U5 c> fisher.test(data)
> chisq.test(data)
0 [. x* i* e" V1 Y9 I: E对吗？