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

shengying

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

R的检验程序这么写的：
2 Q* V9 k! m% I9 y7 c2 @ x=c(8,3,5,10);
> data<-matrix(x, nrow=2);
> fisher.test(data)
> chisq.test(data)
0 z1 [! W4 d6 ~* U5 L对吗？

/ i& @3 N/ S  \) S% `% B, M