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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
吸烟 8 5
不吸烟 3 10
  t; ^2 _4 p7 |0 y( z1 z求出检验的p值，并在显著性水平为0.05时给出结论
9 e  _, M" T& }; b4 B  [; {" D* W$ }
0 l: S, X  G' l! U, ^R的检验程序这么写的：
0 G) b8 M+ u9 Q: e1 Y x=c(8,3,5,10);
) n' D/ N4 Z0 w" w/ |& c, o* W> data<-matrix(x, nrow=2);
> fisher.test(data)
! v* `9 A$ Q- u' C5 {4 B- m; ]> chisq.test(data)
对吗？
% _" d5 |! f  a) N2 T
1 X5 ^% L; V/ c6 T* m3 W