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

shengying

检验吸烟与肺癌是否有关系有如下数据：
5 q( G7 _  w- g) q, A肺癌 有 无
0 s! {1 |. g  ]5 P7 W  N吸烟 8 5
5 q) R. H" z6 r6 Z. b/ P% a$ ?不吸烟 3 10
求出检验的p值，并在显著性水平为0.05时给出结论
3 t) y% t- [' {% r
R的检验程序这么写的：
7 I/ a- D! ~, X7 Y) ? x=c(8,3,5,10);
> data<-matrix(x, nrow=2);
/ m& @1 P2 {% @! x2 Q> fisher.test(data)
) c' N) c3 {+ k* Y! f! ?> chisq.test(data)
对吗？
: G, a9 @# ]; u9 b- ]2 ?