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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
吸烟 8 5
. [4 ^# x; b5 J# V: Z- V; a0 d不吸烟 3 10
求出检验的p值，并在显著性水平为0.05时给出结论
# C$ ^# K4 N! W' }/ n) ?
7 _6 k& H1 a3 G+ L7 ^8 tR的检验程序这么写的：
x=c(8,3,5,10);
; b1 [3 y+ X- _9 ^5 ]> data<-matrix(x, nrow=2);
> fisher.test(data)
, N* ]0 a9 n1 A. c8 O> chisq.test(data)
1 @" i, M4 k, B0 r对吗？

8 Y$ b1 G/ J$ _% K' ?7 A