悲伤猪大肠.-CSDN博客

原创统计学--基于R（第3版）（基于R应用的统计学丛书）作者：贾俊平习题答案第十一章

11.1#11.1load("C:/exercise/ch11/exercise11_1.RData")exercise11_1#采用指数平滑法预测2016年的PPI,并对实际值和预测值绘图进行比较#PPI的简单指数平滑预测exercise11_1<-ts(exercise11_1,start=2006)cpiforecast<-HoltWinters(exercise11_1[,2],beta=FALSE,gamma=FALSE)cpiforecast#历史数据的拟合值

2022-04-21 11:44:50 1043

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

10.1#10.1load("C:/exercise/ch10/exercise10_1.RData")exercise10_1#(1)用电视广告费用和报纸广告费用作自变量，建立估计的回归方程，并说明回归系数的意义。#回归模型的拟合model1<-lm(月销售收入~电视广告费用+报纸广告费用,data=exercise10_1)summary(model1)#计算回归系数的置信区间confint(model1,level=0.95)#输出方差分析表anova(model1)

2022-04-20 14:56:39 1299

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

9.1#9.1load("C:/exercise/ch9/exercise9_1.RData")exercise9_1#(1)绘制散点图，判断人均GDP与居民消费水平之间的关系，并计算相关系数分析其关系强度library(car)scatterplot(人均GDP~居民消费水平,data=exercise9_1,pch=19,xlab="居民消费水平",ylab="人均GDP",cex.lab=0.8)#pch决定点的样式#由散点图可看出二者大概具有正的线性相关关系cor(exercis

2022-04-19 09:49:17 1671

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

8.1#8.1load('C:/exercise/ch8/exercise8_1.RData')exercise8_1#(1)检验机器对装填量是否有显著影响(α=0.01)#H0:不显著，H1:显著#绘制4台机器装填量的箱线图attach(exercise8_1)boxplot(填装量~机器,col="gold",main="",ylab="填装量",xlab="机器")#计算描述统计量my_summary<-function(x){with(x,data.frame("均值"

2022-04-18 19:44:04 2157

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

7.1#7.1#检验各月份的销量是否符合均匀分布(α=0.05)#H0:符各均匀分布，H1:不符合均匀分布load('C:/exercise/ch7/exercise7_1.RData')exercise7_1chisq.test(exercise7_1$销售量)#在该次检验中，X-squared = 80.924, df = 11, p-value = 9.778e-13，p<0.05,拒绝原假设，各月份的销售量不符合均匀分布7.2#7.2#检验是否逃课与学生性别是否

2022-04-13 13:44:32 2240

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

6.1#6.1load('C:/exercise/ch6/exercise6_1.RData')exercise6_1#(1)绘制Q-Q图,检测零件尺寸的绝对误差是否服从正态分布par(mfrow=c(1,2),mai=c(0.7,0.7,0.2,0.1),cex=0.8)qqnorm(exercise6_1$零件误差,xlab='期望正态值',ylab='观测值',datax=TRUE,main='正态Q-Q图')qqline(exercise6_1$零件误差,datax=TRUE,co

2022-04-07 22:26:32 1847

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

5.1#5.1#样本均值120，标准差15，95%q<-qnorm(0.975)#95%的置信水平LCI<-120-q*(15/sqrt(49))UCI<-120+q*(15/sqrt(49))data.frame(LCI,UCI)5.2#5.2#(1)服从正态，标准差500，n=15,平均数8900，置信水平95%q<-qnorm(0.975)LCI<-8900-q*(500/sqrt(15))UCI<-8900+q*(500/sqrt

2022-04-05 22:14:10 1787 3

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

4.1#4.1load("C:/exercise/ch4/exercise4_1.RData")exercise4_1#(1)有2~5台（包括2台与5台在内）冷气机出现重要缺陷的概率sum(exercise4_1$P[3:6])#(2)不到两台sum(exercise4_1$P[1:2])#(3)超过5台sum(exercise4_1$P[7:11])4.2#4.2#n=4,p=0.1的二项分布#(1)P(X=2)dbinom(2,4,0.1)#(2)P(X<=

2022-04-02 13:52:13 2943 3

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

3.1#3_1load('C:/exercise/ch3/exercise3_1.RData')exercise3_1#(1)#计算平均数mean(exercise3_1$网购金额)#计算标准差sd(exercise3_1$网购金额)#计算极差range<-max(exercise3_1$网购金额)-min(exercise3_1$网购金额)range#计算四分位差IQR(exercise3_1$网购金额,type=6)#(2)#计算10%、25%、50%、75%、

2022-04-01 22:06:31 2037 2

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

2.1#2_1load("C:/exercise/ch2/exercise2_1.RData")exercise2_1#(1)简单频数分布表summary(exercise2_1)#行业count1<-table(exercise2_1$行业)count1#百分比表prop.table(count1)*100#性别count2<-table(exercise2_1$性别)count2#百分比表prop.table(count2)*100#满意度count3&

2022-04-01 11:17:25 907

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

1.1#1_1names<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")y08<-c(1500,2935,4203,5929,11290)y09<-c(1549,3110,4502,6468,12319)y10<-c(1870,3621,5222,7441,14050)y11<-c(2001,4256,6208,8894,16783)y12<-c(2316,4808,7041,10142,19009)table1_1

2022-04-01 10:58:46 532

weixin_56403840的博客