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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
% ^( g2 }) s1 i! r3 A/ e5 N吸烟 8 5
% B) O2 m3 v% S! \! _7 g不吸烟 3 10
求出检验的p值，并在显著性水平为0.05时给出结论

R的检验程序这么写的：
x=c(8,3,5,10);
> data<-matrix(x, nrow=2);
' E/ P" v7 c; C7 n% \. c> fisher.test(data)
  j" k+ z1 X4 e9 M! G& o  w> chisq.test(data)
对吗？
0 ]- h% k; ?1 j- L* ~( P. K
8 K% m6 z# g! k+ t: x