径
x=read.table(“li12.1.txt”,header=T) #从li11.1.txt中读 入数据,记为x。
(或者:x<c(500,505,482,480,481,501,498,482, 490,481) #输入样本数据x)
t.test(x,mu=500) #检验总体均值是否等于500
Z pˆ p0
p0 1 p0
质量 500 505 482 480 481 501 490 498
频数 20 16 9 1 8 20 8 18
以0.05为显著水平检验:包装机包装出来的茶叶 的平均质量是否为标准质量500克?
2012-6-26
【统计理论】
当样本来自于非正态总体时,要检验总体 均值是否等于某个常数,在原假设成立且n 充分大时,近似地有:
*
《统计学实验》第12章假设检验
(2) 这是一个左侧检验问题,即 H0 : 500 H1 : 500
处理方法与(1)类似,具体程序如下:
x<-c(500,505,482,480,481,501,498,482, 490,481) #输入样本数据x
t.test(x,mu=500,alternative="less") #备择
t = -3.4912, df = 16, p-value = 0.9985
alternative hypothesis: true difference in means is greater than 0
95 percent confidence interval:
-343.1434 Inf
sample estimates:
平均使用寿命短?
2012-6-26