统计学实验—SPSS与R软件应用与实例-第12章假设检验-R.pptVIP

注 1 ： 如果已经有文本格式的样本数据文件li12.3.txt储存在“D:\R-Statistics\data\chap-12”中： setwd(D:/R-Statistics/data/chap-12) #设定工作路径 dat=read.table(li12.3.txt,header=T) #从li12.3.txt中读入样本数据，记为dat t.test(dat$X1,dat$X2,paired=TRUE,alternative=less) #配对数据t检验 运行结果为与前面类似（略） * 《统计学实验》第12章假设检验 2012-6-26 12.3 两个正态总体方差比的检验 【例12.4】(数据文件为li12.2.sav)在例12.2中，给定显著性水平 ，检验两种牌号灯泡的使用寿命的方差是否相等？ 2012-6-26 【统计理论】 两个总体方差比是否等于常数c的检验，可以采用以下F统计量来完成： * 《统计学实验》第12章假设检验 【软件操作】 利用R软件的var.test( )函数可以检验它们的方差是否相等，具体过程见例12.2。 2012-6-26 12.4 非正态总体参数的检验 【例12.5】(数据文件为li12.5.txt)包装机包装茶叶的质量服从均值为500克的正态分布，欲检查机器性能是否良好，随机抽取100包茶叶为样本，测得质量为： 质量 500 505 482 480 481 501 490 498 频数 20 16 9 1 8 20 8 18 以0.05为显著水平检验：包装机包装出来的茶叶的平均质量是否为标准质量500克？ 12.4.1 单个非正态总体均值的检验 2012-6-26 【统计理论】 当样本来自于非正态总体时，要检验总体均值是否等于某个常数，在原假设成立且n充分大时，近似地有： * 《统计学实验》第12章假设检验 【软件操作】 这是双侧检验问题 ，R软件t.test( )函数可以完成这个检验，具体程序如下： x-c(rep(500,20),rep(505,16),rep(482,9),rep(480,1),rep(481,8),rep(501,20),rep(490,8),rep(498,18)) #输入样本数据x t.test(x,mu=500) #检验均值是否等于500 * 《统计学实验》第12章假设检验 运行结果 One Sample t-test data: x t = -4.3976, df = 99, p-value = 2.759e-05 alternative hypothesis: true mean is not equal to 500 95 percent confidence interval: 494.9208 498.0792 sample estimates: mean of x 496.5 【结果分析】 p-value = 2.759e-05 0.05，所以拒绝原假设，认为茶叶的平均质量不是500克； 事实上，注意到总体均值的置信度为95%的置信区间为[494.9208，498.0792]，它不包含500，也可以判断应该拒绝原假设。 * 《统计学实验》第12章假设检验 2012-6-26 【例12.6】(数据文件为li12.6.txt)某公司想调查某综艺节目的收视率以便投放广告，电视台声称该综艺节目的收视率为30%，电话调查表明，在该综艺节目播出时，被访问的正在观看电视的人中有27%的正在观看这个节目，给定显著水平为0.05，用P值检验法检验： （1）如果 ，问该综艺节目的收视率是否与电视台声称的30%有显著不足？ （2）如果 ，问该综艺节目的收视率是否与电视台声称的30%有显著不足？ 12.4.2 单个总体比例P的检验 2012-6-26 【统计理论】 总体比例p可以视为某件事发生的概率，即可以看作两点分布 中的参数p，要检验总体比例p是否等于常数 ，在 成立且n 充分大时，近似地有: * 《统计学实验》第12章假设检验 【软件操作】 对于二项分布参数p的检验，样本量比较小的情况下，一般采用binom.test( )函数来完成；样本量比较大，可以采用prop.test( )函数完成原假设的近似检验。 （1）这是一个左侧检验，采用prop.test( )完成近似检验，R程序如下： prop.test(27,100,p=0.3