统计学--基于R（第三版）第七章答案！！

统计学–基于R（第三版）第七章答案！！

#7.1 H0:符合均匀分布 H1：不符合均匀分布
load('C:/exercise/ch7/exercise7_1.RData')
chisq.test(exercise7_1$销售量)
#结论：p-value = 9.778e-13<0.05拒绝原假设 销售量不符合均匀分布

#7.2 H0:逃课与学生性别独立 H1：逃课与学生性别不独立
load('C:/exercise/ch7/exercise7_2.RData')
x<-c(34,38,28,50)
M<-matrix(x,nr=2,nc=2,byrow=T,dimnames = list(c('逃过课','未逃过课'),c('男','女')))
chisq.test(M)
#结论：p-value = 0.2145>0.05接受原假设 逃课与学生性别独立

#7.3 H0:独立 H1：不独立
load('C:/exercise/ch7/exercise7_3.RData')
x<-c(50,70,30,15,20,5)
M1<-matrix(x,nr=3,nc=2,byrow=T,dimnames = list(c('主板企业','中小板企业','创业板企业'),c('关注','不关注')))
chisq.test(M1)
#结论：p-value = 0.0002189<0.05拒绝原假设 上市公司的类型对股价关注程度不独立

#7.4 H0:独立 H1：不独立
load('C:/exercise/ch7/exercise7_4.RData')
x<-c(20,40,40,50,50,60,30,20,