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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
吸烟 8 5
6 s' @+ o3 J/ t" a9 |不吸烟 3 10
& [9 ~0 B1 B- |9 X4 Y2 V  n$ I求出检验的p值，并在显著性水平为0.05时给出结论

R的检验程序这么写的：
x=c(8,3,5,10);
> data<-matrix(x, nrow=2);
> fisher.test(data)
$ K& X' Y2 \6 l; R2 M! c> chisq.test(data)
( _) M, q* j1 W8 e6 F% @+ h1 R. B对吗？
. L) G# W5 x5 e5 w
0 R9 O" ]) R& \7 F( ?* q