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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
4 j4 j& w, M2 R3 {吸烟 8 5
不吸烟 3 10
- P( K* P2 s% J5 J求出检验的p值，并在显著性水平为0.05时给出结论
  m8 z' k7 T, a! G% c' ?/ F! d. x& Y
R的检验程序这么写的：
% }/ D1 `6 z0 }2 A. _+ y; p0 R x=c(8,3,5,10);
* E& k  q+ W* @" \5 x; ]> data<-matrix(x, nrow=2);
0 `4 h; Q8 M' p' T8 A' }4 W> fisher.test(data)
> chisq.test(data)
" E4 R6 @, z# C对吗？
+ t8 k$ n/ g0 P0 V9 {
! T3 x. q1 D& k$ H* |: i0 b