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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
吸烟 8 5
不吸烟 3 10
2 d( H1 b0 T, U+ F+ ?- N, a* P# U求出检验的p值，并在显著性水平为0.05时给出结论
# `: l- u0 W' x6 ?, |' U2 H2 ]! A
) y  l; E( j; s! c( |R的检验程序这么写的：
x=c(8,3,5,10);
> data<-matrix(x, nrow=2);
/ m7 P$ D0 v, r2 V> fisher.test(data)
  e1 U; W! ]5 v. Y5 j8 H+ {4 A; H> chisq.test(data)
对吗？
& |  ]; G8 `) U