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

shengying

检验吸烟与肺癌是否有关系有如下数据：
  ?  O9 l2 U, @: r  D肺癌 有 无
吸烟 8 5
不吸烟 3 10
1 M2 _+ O. E- F- y求出检验的p值，并在显著性水平为0.05时给出结论
) H2 o2 ?  v% X
3 [  e7 j( x1 E. _R的检验程序这么写的：
9 X- `: o9 Y8 ~" L5 _+ i x=c(8,3,5,10);
9 x8 z* r" ~! X7 T! S4 R+ I> data<-matrix(x, nrow=2);
> fisher.test(data)
> chisq.test(data)
: ]: k' ?6 p- Y2 T! A对吗？

) R3 `  G* P- i7 p1 B# y' Y" ^