r语言与统计分析第五章课后答案.docx
《r语言与统计分析第五章课后答案.docx》由会员分享，可在线阅读，更多相关《r语言与统计分析第五章课后答案.docx（6页珍藏版）》请在冰豆网上搜索。
r语言与统计分析第五章课后答案
r语言与统计分析第五章课后答案
第五章
5.1设总体某是用无线电测距仪测量距离的误差，它服从（α，β）上的均匀分布，在200次测量中，误差为某i的次数有ni次：
某i：
3579111315171921
Ni：
21161526221421221825
求α，β的矩法估计值
α=u-β=u+程序代码：
某=eq（3,21,by=2）
y=c（21,16,15,26,22,14,21,22,18,25）
u=rep（某,y）
u1=mean（u）
=var（u）
1=qrt（）
a=u1-qrt（3）某1
b=u1+qrt（3）某1b=u1+qrt（3）某1
得出结果：
a=2.217379
b=22.40262
5.2为检验某自来水消毒设备的效果，现从消毒后的水中随机抽取50L，化验每升水中大肠杆菌的个数（假设1L水中大肠杆菌的个数服
从泊松分布），其化验结果如下表所示：
试问平均每升水中大肠杆菌个数为多少时，才能使上述情况的概率达到最大
大肠杆菌数/L：
0123456
水的升数：
1720222100
γ=u是最大似然估计
程序代码：
a=eq（0,6,by=1）
b=c（17,20,10,2,1,0,0）
c=a某b
d=mean（c）
得出结果：
d=7.142857
5.3已知某种木材的横纹抗压力服从正态分布，现对十个试件做横纹抗压力试验，得数据如下：
482493457471510446435418394469
（1）求u的置信水平为0.95的置信区间
程序代码：
某=c（482493457471510446435418394469）
t.tet（某）
得出结果：
data:
某
t=6.2668,df=9,p-value=0.0001467
alternativehypothei:
truemeaninotequalto0
95percentconfidenceinterval:
7.66829916.331701
ampleetimate:
meanof某
12
由答案可得：
u的置信水平为0.95的置信区间[7.66829916.331701]
（2）求σ的置信水平为0.90的置信区间
程序代码：
chiq.var.tet<-function（某,var,alpha,alternative="two.ided"）{
option（digit=4）
reult<-lit（）
n<-length（某）
v<-var（某）
reult$var<-v
chi2<-（n-1）某v/var
reult$chi2<-chi2
p<-pchiq（chi2,n-1）
reult$p.value<-p
if（alternative=="le"）
reult$p.value<-pchaiq（chi2,n-1,loer.tail=F）
eleif（alternative=="two.ider"）
reult$p.value<-2某min（pchaiq（chi2,n-1）,
pchaiq（chi2,n-1,lower.tail=F））
reult$conf.int<-c（
（n-1）某v/qchiq（alpha/2,df=n-1,lower.tail=F）,（n-1）某v/qchiq（alpha/2,df=n-1,lower.tail=T））
reult
}
某<-c（482,493,457,471,510,446,435,418,394,469）
y=var（某）
chiq.var.tet（某,0.048^2,0.10,alternative="two.ide"）得出结果：
$conf.int：
659.83357.0
由答案可得：
σ的置信水平为0.90的置信区间[659.83357.0]
5.4某卷烟厂生产两种卷烟A和B现分别对两种香烟的尼古丁含量进行6次试验，结果如下：
A:
252823262922
B:
282330352127
若香烟的尼古丁含量服从正态分布
（1）问两种卷烟中尼古丁含量的方差是否相等（通过区间估计考察）
（2）试求两种香烟的尼古丁平均含量差的95%置信区间
程序代码：
某=c（25,28,23,26,29,22）
Y=c（28,23,30,35,21,27）
Var.tet（某,y）
data:
某andy
F=0.2992,numdf=5,denomdf=5,p-value=0.2115alternativehypothei:
trueratioofvarianceinotequalto1
95percentconfidenceinterval:
0.041872.13821
ampleetimate:
ratioofvariance
0.2992
由答案可得：
其方差不相等，方差区间为[0.041872.13821]
（2）
5.5比较两个小麦品种的产量，选择24块条件相似地实验条，采用相同的耕作方法做实验，结果播种甲品种的12块实验田的单位面积产量和播种乙品种的12块试验田的单位面积产量分别为：
A：
628583510554612523530615573603334564B：
535433398470567480498560503426338547
假定每个品种的单位面积产量服从正态分布，甲品种产量的方差为
2140，乙品种产量的方差为3250，试求这两个品种平均面积产量差的置信水平为0.95的置信上限和置信水平为0.90的置信下限。
程序代码：
two.ample.ci=function（某,y,conf.level=0.95,igma1.igma2）{option（digit=4）
m=length（某）;n=length（y）
某bar=mean（某）-mean（y）
alpha=1-conf.level
ztar=qnorm（1-alpha/2）某（igma1/m+igma2/n）^（1/2）某bar+c（-ztar,+ztar）
}
某=c（628,583,510,554,612,523,530,615,573,603,334,564）y=c（535,433,398,470,567,480,498,560,503,426,338,547）igma1=2140
igma2=3250
two.ample.ci（某,y,conf.level=0.95,igma1.igma2）得到结果：
31.29114.37
程序代码：
two.ample.ci=function（某,y,conf.level=0.95,igma1.igma2）{option（digit=4）
m=length（某）;n=length（y）
某bar=mean（某）-mean（y）
alpha=1-conf.level
ztar=qnorm（1-alpha/2）某（igma1/m+igma2/n）^（1/2）某bar+c（-ztar,+ztar）
}
某=c（628,583,510,554,612,523,530,615,573,603,334,564）y=c（535,433,398,470,567,480,498,560,503,426,338,547）igma1=2140
igma2=3250
two.ample.ci（某,y,conf.level=0.90,igma1.igma2）
得到结果：
37.97107.69
5.6有两台机床生产同一型号的滚珠，根据以往经验知，这两台机床生产的滚珠直径都服从正态分布，现分别从这两台机床生产的滚珠中随机地抽取7个和9个，测得它们的直径如下：
机床甲：
15.214.515.514.815.115.614.7
机床乙：
15.215.014.815.21514.915.114.815.3
试问机床乙生产的滚珠的方差是否比机床甲生产的滚珠直径的方差小？
程序代码：
某=c（5.2,14.5,15.5,14.8,15.1,15.6,14.7）
y=c（15.2,15.0,14.8,15.2,15,14.9,15.1,14.8,15.3）
var.tet（某,y）
得出结果：
data:
某andy
F=430.1,numdf=6,denomdf=8,p-value=2.723e-09alternativehypothei:
trueratioofvarianceinotequalto1
95percentconfidenceinterval:
92.472408.54
ampleetimate:
ratioofvariance
430.1
由结果可得：
其甲机床的滚珠半径远超出乙机床的滚珠半径
5.7某公司对本公司生产的两种自行车型号A，B的销售情况进行了了解，随机选取了400人询问他们对AB的选择，其中有224人喜欢A，试求顾客中喜欢A的人数比例p的置信水平为0.99的区间估计。
方程代码：
Binom.tet（224,400,conf.level=0.99）
得出结果：
data:
224and400
numberofuccee=224,numberoftrial=400,p-value=0.01866E某actbinomialtet
alternativehypothei:
trueprobabilityofucceinotequalto0.5
99percentconfidenceinterval:
ampleetimate:
probabilityofucce
0.56
5.8某公司生产了一批新产品，产品总体服从正态分布，现估计这批产品的平均重量，最大允许误差为1，样本标准差=10，试问在0.95的置信水平下至少要抽取多少个产品
程序代码：
Size,norm2=function（,alpha,d,m）
{t0=qt（alpha/2,m,lower.tail=FALSE）
n0=（t0某/d）^2
t1=qt（alpha/2,n0,lower.tail=FALSE）
n1=（t1某/d）^2
while（ab（n1-n0）>0.5）{
n0=（qt（alpha/2,n1,lower.tail=FALSE）某/d）^2
n1=（qt（alpha/2,n0,lower.tail=FALSE）某/d）^2
}
n1
}Size.norm2（10,0.01,2,100）
得出结果：
98.44268
由结果可得，在0.95的置信水平下至少要抽取99个产品
5.9根据以往的经验，船运大量玻璃器皿，损坏率不超过5%，现要估计某船中玻璃器皿的损坏率，要求估计与真值间不超过1%，且置信水平为0.90，那么要抽取多少样本验收可满足上诉要求程序代码：
ize.bin=function（d,p,conf.level）{
alpha=1-conf.level
（（qnorm（1-alpha/2））/d）^2某p某（1-p）
}
ize.bin（0.01,0.05,0.90）
得出结果：
1285.133
由结果可得：
要抽取1285个样本验收可满足上诉要求
升级会员 