统计学——基于R（第3版）（基于R应用的统计学丛书）作者：贾俊平 习题答案 第六章

6-1

load("C:/exercise/ch6/exercise6_1.RData")
library(BSDA)
z.test(exercise6_1$零件误差,mu=1.35,sigma.x=sd(exercise6_1$零件误差),alternative="less",conf.level=0.99)
#结论：在该检验中，z=-2.6061，P=0.004579，由于P<0.01，拒绝H0，新机床加工的零件尺寸的平均误差与就机床相比无显著降低

6-2

load("C:/exercise/ch6/exercise6_2.RData")
t.test(exercise6_2$重量,mu=25,conf.level=0.95)
#P=0.3114>0.05,不拒绝原假设，符合要求

library(lsr)
cohensD(exercise6_2$重量,mu=25)
#0.2<d<0.5 小的效应量

6-3

load("C:/exercise/ch6/exercise6_3.RData")
t.test(exercise6_3$看后,exercise6_3$看前,paired=TRUE,conf.level=0.95)

#P>0.05,不拒绝原假设
library(lsr)
cohensD(exercise6_3$看后,exercise6_3$看前,method="paired")
#小的效应量

6-4

load("C:/exercise/ch6/exercise6_4.RData")
#假设方差相等
t.test(exercise6_4$方法1,exercise6_4$方法2,var.equal=TRUE)
#假设方差不相等
t.test(exercise6_4$方法1,exercise6_4$方法2,var.equal=FALSE)

library(lsr)
cohensD(exercise6_4$方法1,exercise6_4$方法2)
#大的效应量，差异大