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

shengying

检验吸烟与肺癌是否有关系有如下数据：
肺癌 有 无
( s8 V2 Q, z) ]0 E6 {吸烟 8 5
: ^+ @' q6 G2 m1 ]不吸烟 3 10
求出检验的p值，并在显著性水平为0.05时给出结论

R的检验程序这么写的：
; h, b& w8 }4 M" c0 [( `/ ] x=c(8,3,5,10);
> data<-matrix(x, nrow=2);
> fisher.test(data)
> chisq.test(data)
对吗？

/ j3 |& J5 b7 m1 ]9 e' F9 T1 P' k