欢迎来到天天文库
浏览记录
ID:51970456
大小:410.50 KB
页数:53页
时间:2020-03-26
《统计学实验—SPSS和R软件应用与实例 费宇 第12章假设检验-R.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、2021/7/25《统计学实验》第12章假设检验12-1统计学实验—SPSS和R软件应用与实例主编:费宇2021/7/25《统计学实验》第12章假设检验12-2第12章假设检验2021/7/25《统计学实验》第12章假设检验一、实验目的运用t.test()函数来完成单样本t检验、独立样本t检验和配对样本t检验运用var.test()函数来实现方差齐性检验,并利用prop.test()和binom.test()函数来完成二项总体的参数检验掌握运用R进行假设检验的基本操作过程,并能读懂R输出的结果12-32021/
2、7/25《统计学实验》第12章假设检验二、实验环境系统软件Windows2000或WindowsXP或Windows7;统计软件R2.13.2或更高版本。12-42021/7/25《统计学实验》第12章假设检验三、实验内容一个正态总体均值的检验(单样本t检验)两个正态总体均值差的检验(独立样本t检验、配对样本t检验)两个正态总体方差比的检验(F检验)非正态总体参数(非参数检验)的检验运用R进行假设检验:12-52021/7/25《统计学实验》第12章假设检验第12章假设检验12.1一个正态总体均值的检验12.2
3、两个正态总体均值差的检验12.3两个正态总体方差比的检验12.4非正态总体参数的检验12-62021/7/25《统计学实验》第12章假设检验12.1一个正态总体均值的检验【例12.1】(数据文件为li12.1.txt)包装机包装茶叶的质量服从正态分布,其标准质量为500克。欲检查机器性能是否良好,从一批茶叶中随机抽取10包为样本,测得每包的质量分别为(单位:克):500、505、482、480、481、501、498、482、490、481。12-7【例4.1】以0.05为显著性水平检验:(1)包装机包装出来的
4、茶叶的平均质量是否为标准质量500克?(2)包装机包装出来的茶叶的平均质量是否大于等于500克?(3)包装机包装出来的茶叶的平均质量是否小于等于500克?2021/7/25《统计学实验》第12章假设检验12-82012-6-26《统计学实验》第4章假设检验【统计理论】当总体方差已知时,可以采用以下Z统计量(即标准正态统计量)来进行检验:12-92012-6-26《统计学实验》第4章假设检验【统计理论】当总体方差未知时,则采用如下t统计量来进行检验:12-102021/7/25《统计学实验》第12章假设检验【软件
5、操作】采用t.test()函数来完成上述假设检验(1)这是一个双侧检验问题,即setwd(“D:/R-Statistics/data/chap-12”)#设定工作路径x=read.table(“li12.1.txt”,header=T)#从li11.1.txt中读入数据,记为x。(或者:x6、结果OneSamplet-testdata:xt=-3.1623,df=9,p-value=0.01151alternativehypothesis:truemeanisnotequalto50095percentconfidenceinterval:482.8464497.1536sampleestimates:meanofx49012-12(2)这是一个左侧检验问题,即处理方法与(1)类似,具体程序如下:x<-c(500,505,482,480,481,501,498,482,490,481)#输入样本数据7、xt.test(x,mu=500,alternative="less")#备择假设为总体均值小于5002021/7/25《统计学实验》第12章假设检验12-132021/7/25《统计学实验》第12章假设检验运行结果OneSamplet-testdata:xt=-3.1623,df=9,p-value=0.005754alternativehypothesis:truemeanislessthan50095percentconfidenceinterval:-Inf495.7968sampleestimates8、:meanofx49012-14(3)这是一个右侧检验问题,即处理方法与(1),(2)类似:t.test(x,mu=500,alternative="greater")#备择假设为总体均值大于500运行结果为:2021/7/25《统计学实验》第12章假设检验OneSamplet-testdata:xt=-3.1623,df=9,p-value=0.9942alternativehypo
6、结果OneSamplet-testdata:xt=-3.1623,df=9,p-value=0.01151alternativehypothesis:truemeanisnotequalto50095percentconfidenceinterval:482.8464497.1536sampleestimates:meanofx49012-12(2)这是一个左侧检验问题,即处理方法与(1)类似,具体程序如下:x<-c(500,505,482,480,481,501,498,482,490,481)#输入样本数据
7、xt.test(x,mu=500,alternative="less")#备择假设为总体均值小于5002021/7/25《统计学实验》第12章假设检验12-132021/7/25《统计学实验》第12章假设检验运行结果OneSamplet-testdata:xt=-3.1623,df=9,p-value=0.005754alternativehypothesis:truemeanislessthan50095percentconfidenceinterval:-Inf495.7968sampleestimates
8、:meanofx49012-14(3)这是一个右侧检验问题,即处理方法与(1),(2)类似:t.test(x,mu=500,alternative="greater")#备择假设为总体均值大于500运行结果为:2021/7/25《统计学实验》第12章假设检验OneSamplet-testdata:xt=-3.1623,df=9,p-value=0.9942alternativehypo
此文档下载收益归作者所有