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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
吸烟 8 5
' I& o8 G6 z) w4 j2 I! X% C% J不吸烟 3 10
求出检验的p值，并在显著性水平为0.05时给出结论
' ~6 c$ y2 w: {. a4 m2 |
/ V2 M8 b- t' x+ n: y* nR的检验程序这么写的：
. C, X* |4 [+ g8 _9 M6 ~  Z1 ~+ S x=c(8,3,5,10);
9 o4 ^  b5 W# \4 J  S> data<-matrix(x, nrow=2);
> fisher.test(data)
> chisq.test(data)
对吗？
  r; b/ g* c3 W6 ~