1 / 13
文档名称:

R语言实验.doc

格式:doc   大小:33KB   页数:13页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

R语言实验.doc

上传人:282975922 2020/9/7 文件大小:33 KB

下载得到文件列表

R语言实验.doc

文档介绍

文档介绍:)验(二验8假设检实验目的:一、实2检验——对一个样?Mcnemar检验——列联表独立性检验,(秩和检验);Wilcoxon符号秩检验,Wilcoxon本两种研究方法是否有差异的检验,符号检验,秩相关检验。秩相关检验,:Spearman验内容:实二、练****并将所有自己输入文字的字体颜色)(要求:①完成练****并粘贴运行截图到文档相应位置截图方法见下(包括后面的思考及小结),②回答思考题,③简要书写实验小结。④修改本文档名为“本人红色设为”,表示学号09。如文件名为“张立111完整学号姓名”,其中1表示第次实验,以后更改为2,3,...源程序文注意文件名中没有空格及任何其它字符。最后连同数据文件、次实验,为09的张立同学的第1件等(如果有的话,本次实验没有),一起压缩打包发给课代表,压缩包的文件名同上。截图方法::调整需要截图的窗口至合适的大小,并使该窗口为当前激活窗口(即该窗口在屏幕最前方),按法1”不放,PrScrn“再按键盘右上角的截图键(通常印有“印屏幕”或Alt住键盘键(空格键两侧各有一个)文档的相应位置即可。等字符),即完成截图。再粘贴到word“截屏”选择其中的输入法工具条最右边的QQ法2:利用输入法的截屏工具。点击QQ“扳手”,图标工具。)自行完成教材第五章的例题****题)为研究分娩过程中使用胎儿电子监测仪对剖腹产率有无影响,,结果如下表所示,试进行分析。例经产妇回顾性调查结果5824胎儿电子监测仪剖腹产合计未使用使用587229358是523727452492否582429742850合计解:提出假设::H分娩过程中使用胎儿电子监测仪对剖腹产率无影响0分娩过程中使用胎儿电子监测仪对剖腹产率有影响:H1源代码及运行结果:(复制到此处,不需要截图)>x<-c(358,2492,229,2745)>dim(x)<-c(2,2)>(x)Pearson'sChi-squaredtestwithYates'continuitycorrectionxdata:X-squared=,df=1,p-value=结论:拒绝原假设,分娩过程中使用胎儿电子监测仪对剖腹产率有影响P=<,.3****题)在高中一年级男生中抽取300名考察其两个属性:B是1500米长跑,C是每天平均锻炼时间,得到4×3列联表,如下表所示。试对??=,检验B与C是否独立。300名高中学生体育锻炼的考察结果1500米长跑记录锻炼时间合计?1小时以下12小时2小时以上?5'5'?5_x0019_'6?6'6'?76_x0019_'对比法104512204628232830121135核素法合计异常正常减弱67948158合计67103130300解:提出假设:C独立。BH:与0B:与不独立。CH1源代码及运行结果:(复制到此处,不需要截图)>x<-c(45,46,28,11,12,20,23,12,10,28,30,35)>dim(x)<-c(4,3)>(x)Pearson'sChi-squaredtestxdata:X-squared=,df=6,p-value=结论:不独立,有关系。BP=<,拒绝原假设,与C4****题)为比较两种工艺对产品的质量是否有影响,对其产品进行抽样检查,其结果如下表所示。试进行分析。两种工艺下产品质量的抽查结果合格不合格合计7工艺一431046工艺二1789合计解:提出假设:H:两种工艺对产品的质量没影响0:H两种工艺对产品的质量有影响1源代码及运行结果:(复制到此处,不需要截图)>x<-c(3,6,4,4)>dim(x)<-c(2,2)>(x)Fisher'sExactTestforCountDataxdata:p-value=alternativehypothesis:trueoddsratioisnotequalto195percentconfidenceinterval:sampleestimates:oddsratio结论:P=>,接受原假设,两种工艺对产品的质量没影响5****题)应用核素法和对比法检测147例冠心病患者心脏收缩运动的符合情况,其结果如下表所示。试分析这两种方法测定结果是否相同。两法检查室壁收缩运动的符合情况633582正常501427减弱34异常1789147合计275367解:提出假设:H:这两种方法测定结果不相同0这两种方法测定结果相同H:1源代码及运行结果:(复制到此处,不需要截图)>x<-c(58,1,8,2,42,9,3,7,17)>dim(x)<-c(3,3)>(x)McNemar'sChi-squaredtestxdata:McNemar'schi-squared=,df=3,p-