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

shengying

检验吸烟与肺癌是否有关系有如下数据：
, c" ~5 e: a$ Z; _0 c肺癌 有 无
, i- C$ {! P$ X% s吸烟 8 5
- }' V+ u8 r  e3 l& z5 A不吸烟 3 10
' k; K% _( f7 z  J求出检验的p值，并在显著性水平为0.05时给出结论
+ E4 J7 c: w$ F# P( o8 c
. D, a5 P2 \, E( tR的检验程序这么写的：
x=c(8,3,5,10);
4 H, |0 K, B8 f" N  H> data<-matrix(x, nrow=2);
- m4 g# {6 l7 s4 ?9 {6 {> fisher.test(data)
> chisq.test(data)
对吗？
$ E$ d, ?. D6 O* X
4 C0 l2 U& r- c+ l