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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
吸烟 8 5
不吸烟 3 10
求出检验的p值，并在显著性水平为0.05时给出结论
7 I8 k1 |: K+ u2 x
9 R. k7 ^6 G& ^9 t; m$ F3 \R的检验程序这么写的：
* v8 W/ A8 c/ } x=c(8,3,5,10);
6 }+ s! }  }0 I( Y5 l# v% B> data<-matrix(x, nrow=2);
6 p2 k' g! r0 R, s, k: ~4 i, b$ |> fisher.test(data)
> chisq.test(data)
  a8 f' Y0 T1 ]; o对吗？
9 A7 R- N; r) t' m
& t9 |+ Y) M$ \0 q% W4 E" |