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

shengying

检验吸烟与肺癌是否有关系有如下数据：
' e  B* h! G3 @4 {6 T" J肺癌 有 无
$ j% p1 Z, p: I/ B+ M吸烟 8 5
* d) G! E# y- u4 h0 o6 Y不吸烟 3 10
8 i8 ?* ?. h8 m求出检验的p值，并在显著性水平为0.05时给出结论

% k5 ~( ?- v. [& JR的检验程序这么写的：
4 Y- U8 i1 V% u* s. \' L" z8 M) P x=c(8,3,5,10);
1 S2 b3 @% k/ g" J. {> data<-matrix(x, nrow=2);
> fisher.test(data)
8 t  {$ {9 n( z, P> chisq.test(data)
对吗？