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

shengying

检验吸烟与肺癌是否有关系有如下数据：
3 O9 b4 w" E1 I. i. l5 \, a$ T肺癌 有 无
- F5 U2 ]; _- M* ]3 Q: w3 S吸烟 8 5
  x" s: a% d0 S& a: V' ?9 @3 i$ Y0 \8 ]不吸烟 3 10
求出检验的p值，并在显著性水平为0.05时给出结论

R的检验程序这么写的：
x=c(8,3,5,10);
% R4 ]  T8 E- s+ v( C* p; |) j> data<-matrix(x, nrow=2);
/ e9 T/ U: e. F' P. Q> fisher.test(data)
> chisq.test(data)
对吗？
/ v) q! K$ ~* _0 I# r
. E6 z. ?% J. h. p. C