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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
吸烟 8 5
不吸烟 3 10
* q) l& f5 ]  V3 x求出检验的p值，并在显著性水平为0.05时给出结论
& o# s( _' `2 \6 m$ I5 K1 g! T
7 h) K9 t1 w) }. V  ^1 IR的检验程序这么写的：
. [  t2 [$ }1 r' ^& m2 B x=c(8,3,5,10);
7 h" m' T5 c* Z- c; E# }4 }, D+ }; M> data<-matrix(x, nrow=2);
> fisher.test(data)
0 `5 F# `- p8 G# c2 B% f+ D$ \. R> chisq.test(data)
对吗？
# q$ j0 m& O/ t