R语言实验
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
精心整理
实验8假设检验（二）
一、实验目的：
1.掌握若干重要的非参数检验方法（ 2检验——列联表独立性检验，Mcnemar
检验——对一个样本两种研究方法是否有差异的检验，符号检验，Wilcoxon 符号秩检验，Wilcoxon秩和检验）；
2.掌握另外两个相关检验：Spearman秩相关检验，Kendall秩相关检验。
二、实验内容：
练习：
要求：①完成练习并粘贴运行截图到文档相应位置(截图方法见下)，并将所有自己输入文字的字体颜色设为红色（包括后面的思考及小结），②回答思考题，③简要书写实验小结。④修改本文档名为“本人完整学号姓名1”，其中1表示第1次实验，以后更改为2,3,...。如文件名为“09张立1”，表示学号为09的张立同学的第1次实验，注意文件名中没有空格及任何其它字符。最后连同数据文件、源程序文件等（如果有的话，本次实验没有），一起压缩打包发给课代表，压缩包的文件名同上。截图方法：
法1：调整需要截图的窗口至合适的大小，并使该窗口为当前激活窗口（即该窗口在屏幕最前方），按住键盘Alt键（空格键两侧各有一个）不放，再按键盘右上角的截图键（通常印有“印屏幕”或“PrScrn”等字符），即完成截图。再粘贴到word文档的相应位置即可。
法2：利用QQ输入法的截屏工具。点击QQ输入法工具条最右边的“扳手”图标，选择其中的“截屏”工具。）
1.自行完成教材第五章的例题。
2.（习题5.11）为研究分娩过程中使用胎儿电子监测仪对剖腹产率有无影响，对
5824例分娩的经产妇进行回顾性调查，结果如下表所示，试进行分析。
5824例经产妇回顾性调查结果
H
H
P=9.552e-10<0.05,拒绝原假设，分娩过程中使用胎儿电子监测仪对剖腹产率有影响
3.（习题5.12）在高中一年级男生中抽取300名考察其两个属性：B是1500米长跑，
C是每天平均锻炼时间，得到4×3列联表，如下表所示。试对 =0.05，检验B 与C是否独立。
300名高中学生体育锻炼的考察结果
H H 4. （习题5.13）为比较两种工艺对产品的质量是否有影响，对其产品进行抽样检查，其结果如下表所示。试进行分析。
两种工艺下产品质量的抽查结果
解：提出假设：
H0：两种工艺对产品的质量没影响
H1：两种工艺对产品的质量有影响
源代码及运行结果：（复制到此处，不需要截图）
P=0.6372>0.05，接受原假设，两种工艺对产品的质量没影响
5.（习题5.14）应用核素法和对比法检测147例冠心病患者心脏收缩运动的符合情
况，其结果如下表所示。试分析这两种方法测定结果是否相同。
两法检查室壁收缩运动的符合情况
解：提出假设：
H0：这两种方法测定结果不相同
H
6.，现对
13.3213.0614.0211.8613.5813.7713.5114.4214.4415.43
将它们作为一个样本进行检验。试分析，该鱼塘中鱼的长度是在中位数之上，还是在中位数之下。
（1）用符号检验分析；
（2）用Wilcoxon符号秩检验分析。
解：
（1）用符号检验分析
提出假设：
H0：M>=14.6
H1：M<14.6
提出假设：
H0：M>=14.6
H1：M<14.6
源代码及运行结果：（复制到此处，不需要截图）
x<-c(13.32,13.06,14.02,11.86,13.58,13.77,13.51,14.42,14.44,15.43)
>wilcox.test(x,mu=14.6,al="l",exact=F)
Wilcoxonsignedranktestwithcontinuitycorrection
data:x
V=4.5,p-value=0.01087
alternativehypothesis:truelocationislessthan14.6
7.20
t
（5）分析各种的检验方法，试说明哪种检验法效果最好。
解：
（1）符号检验法
提出假设：
H0：两测定无显着差异
H1：两测定有显着差异
源代码及运行结果：（复制到此处，不需要截图）
>x<-c(48.0,33.0,37.5,48.0,42.5,40.0,42.0,36.0,11.3,22.0,36.0,27.3,14.2,32.1,52.0,38.0, 17.3,20.0,21.0,46.1)
>y<-c(37.0,41.0,23.4,17.0,31.5,40.0,31.0,36.0,5.7,11.5,21.0,6.1,26.5,21.3,44.5,28.0,22
（2）Wilcoxon符号秩检验法
提出假设：
H0：两测定无显着差异
H1：两测定有显着差异
源代码及运行结果：（复制到此处，不需要截图）
>x<-c(48.0,33.0,37.5,48.0,42.5,40.0,42.0,36.0,11.3,22.0,36.0,27.3,14.2,32.1,52.0,38.0, 17.3,20.0,21.0,46.1)
>y<-c(37.0,41.0,23.4,17.0,31.5,40.0,31.0,36.0,5.7,11.5,21.0,6.1,26.5,21.3,44.5,28.0,22 .6,20.0,11.0,22.3)
>wilcox.test(x,y,paired=T,exact=F)
H
H
>y<-c(37.0,41.0,23.4,17.0,31.5,40.0,31.0,36.0,5.7,11.5,21.0,6.1,26.5,21.3,44.5,28.0,22 .6,20.0,11.0,22.3)
>wilcox.test(x,y,exact=F)
Wilcoxonranksumtestwithcontinuitycorrection
data:xandy