【数学分析入门】R语言独立性检验方法

一、独立性检验

1.卡方独立检验

卡方检验的p值越小,说明K值越大,即 χ 2 \chi^2 χ2 的值越大,说明“X与Y有关系”成立的可能性越大。

library(vcd)
mytable <- table(Arthritis$Treatment,Arthritis$Improved) 
chisq.test(mytable)
fisher.test(mytable)

在这里插入图片描述
卡方检验p值<0.005
拒绝原假设
说明treatment与improved这两个变量不独立,存在相关性

mytable <-table(Arthritis$Improved,Arthritis$Sex)
chisq.test(mytable)
fisher.test(mytable)

在这里插入图片描述
卡方检验p值大于0.005,说明独立

2.费希尔精确检验

类似上面,P值越小,说明相关性越大,用四象限法算一下就明白为什么了

library(vcd)
mytable <- table(Arthritis$Treatment,Arthritis$Improved) 
fisher.test(mytable)

在这里插入图片描述

费歇尔检验p值<0.005,说明存在相关性

mytable <-table(Arthritis$Improved,Arthritis$Sex)
fisher.test(mytable)

在这里插入图片描述
费歇尔检验p值>0.005,说明独立

3.分层卡法检验(CMH)

分层卡方检验,也称为Cochran-Mantel-Haenszel检验(CMH检验),它主要用于上述的分层分析中,也就是在研究暴露/处理因素和结局事件关联性的基础上,考虑了分层因素的混杂作用。

CMH检验通过对分层因素进行控制,从而考察调整之后暴露/处理因素与结局事件之间的关联性。实际上CMH检验,已经不再是单纯的单因素分析,而是已经开始融入了多因素分析的思维模式,应该算作为一种最为简单的多因素分析方法。

mytable <- xtabs(~Treatment+Improved+Sex, data=Arthritis)
mantelhaen.test(mytable)

在这里插入图片描述
在这里插入图片描述

  • 5
    点赞
  • 16
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值