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

shengying

检验吸烟与肺癌是否有关系有如下数据：
9 }4 S. A% A! M# g/ v肺癌 有 无
6 w7 C1 K2 e5 w' T1 |" b) Z吸烟 8 5
不吸烟 3 10
求出检验的p值，并在显著性水平为0.05时给出结论
; x" Q  F" L4 n0 i& O
! U1 l( `" d5 V* DR的检验程序这么写的：
x=c(8,3,5,10);
& l. T6 g  v. x: Q4 C> data<-matrix(x, nrow=2);
* W8 x! ?4 s% Z4 R! t> fisher.test(data)
1 p+ G7 A  x4 ?- @9 l; W6 B2 d7 R> chisq.test(data)
! Y. x# \5 _+ e: e; U- O对吗？
; c! s3 \) Z6 p+ O' b% O
* z. e0 |( R5 [5 G; t