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

shengying

检验吸烟与肺癌是否有关系有如下数据：
% V: }3 Z" y( |, K5 M2 g- k% Y肺癌 有 无
. d5 f1 U1 A9 i1 N0 N+ `吸烟 8 5
+ R+ a/ F% w3 X1 A6 m1 R不吸烟 3 10
求出检验的p值，并在显著性水平为0.05时给出结论
( y$ h2 `4 ^; s! U' C
R的检验程序这么写的：
! P" R2 ~! q+ U8 W x=c(8,3,5,10);
2 Q3 c1 T3 g# P5 e3 C7 G> data<-matrix(x, nrow=2);
8 D$ |' m+ o- w  T4 k> fisher.test(data)
; c! _$ w% U) S% `. x% n6 M$ ?% |> chisq.test(data)
6 g2 e) v& |$ ]0 m) e( x! Y对吗？
% ]$ l# O- v" Z  X