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

shengying

检验吸烟与肺癌是否有关系有如下数据：
# A/ {# a. q, ]/ K3 p肺癌 有 无
吸烟 8 5
不吸烟 3 10
- b5 G3 z2 P4 d, z- L0 E求出检验的p值，并在显著性水平为0.05时给出结论

: a7 s9 Q7 _. n3 GR的检验程序这么写的：
x=c(8,3,5,10);
> data<-matrix(x, nrow=2);
* x0 D" v3 Q0 b4 C3 _" N$ r' w; V9 l" E> fisher.test(data)
# ?8 @$ g$ q, `+ p> chisq.test(data)
对吗？