r语言与统计分析第五章课后答案

1、第五章5.1 设总体 x 是用无线电测距仪测量距离的误差，它服从( ，)上 的均匀分布，在 200次测量中，误差为 xi 的次数有 ni次：Xi：3 5 7 9 11 13 15 17 19 21Ni：21 16 15 26 22 14 21 22 18 25求 ， 的矩法估计值=u- 3s=u+ 3s程序代码：x=seq(3,21,by=2)y=c(21,16,15,26,22,14,21,22,18,25)u=rep(x,y)u1=mean(u)s=var(u)s1=sqrt(s)a=u1-sqrt(3)*s1b=u1+sqrt(3)*s1b=u1+sqrt(3)*s1得出结果：a= 2.

2、217379b= 22.402625.2 为检验某自来水消毒设备的效果，现从消毒后的水中随机抽取50L，化验每升水中大肠杆菌的个数 （假设 1L 水中大肠杆菌的个数服 从泊松分布)，其化验结果如下表所示：试问平均每升水中大肠杆菌个数为多少时，才能使上述情况的概率达到最大大肠杆菌数 /L：0 1 2 3 4 5 6水的升数： 17 20 10 2 1 0 0=u 是最大似然估计程序代码：a=seq(0,6,by=1)b=c(17,20,10,2,1,0,0)c=a*bd=mean(c)得出结果：d= 7.1428575.3 已知某种木材的横纹抗压力服从正态分布，现对十个试件做横纹 抗压力试验，得

3、数据如下： 482 493 457 471 510 446 435 418 394 469 ( 1)求 u 的置信水平为 0.95 的置信区间 程序代码：x=c(482 493 457 471 510 446 435 418 394 469 )t.test(x)得出结果：data: xt = 6.2668, df = 9, p-value = 0.0001467 alternative hypothesis: true mean is not equal to 0 95 percent confidence interval:7.668299 16.331701 sample estimate

4、s: mean of x12由答案可得：u的置信水平为 0.95 的置信区间 7.668299 16.331701 ( 2)求 的置信水平为 0.90 的置信区间程序代码： chisq.var.test-function(x,var,alpha,alternative=two.sided )options(digits=4) result-list() n-length(x) v-var(x) result$var-vchi2-(n-1)*v/var result$chi2-chi2 p-pchisq(chi2,n-1) result$p.value-p if(alternative=less

5、)result$p.value-pchaisq(chi2,n-1,loer.tail=F) else if(alternative=two.sider) result$p.value-2*min(pchaisq(chi2,n-1), pchaisq(chi2,n-1,lower.tail=F)result$-c(n-1)*v/qchisq(alpha/2,df=n-1,lower.tail=F), (n-1)*v/qchisq(alpha/2,df=n-1,lower.tail=T) resultx0.5)n0=(qt(alpha/2,n1,lower.tail = FALSE)*s/d)2n1=(qt(alpha/2,n0,lower.tail = FALSE)*s/d)2n1Size.norm2(10,0.01,2,100)得出结果： 98.44268由结果可得，在 0.95 的置信水平下至少要抽取 99 个产品5.9 根据以往的经验，船运大量玻璃器皿，损坏率不超过 5%，现要估 计某船中玻璃器皿的损坏率，要求估计与真值间不超过1%，且置信水平为 0.90 ，那么要抽取多少样本验收可满足上诉要求 程序代码：size.bin=function(d,p,conf.level)alpha=1-conf.level