5工程数学作业--g2011225260于春权实验5

《5工程数学作业--g2011225260于春权实验5》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、5数理统计实验学号：G2011225260邮箱：6370432@qq.com电话：136713789391.区间估计已知某种灯泡寿命服从正态分布，在某星期所生产的该灯泡中随机抽取io只，测得其寿命(单位：小时)为：1067919119678511269369181156920948(1)试问这批灯泡中大约95%的灯泡至少使用多少小时；(2)求这批灯泡能够使用1000小时以上的概率。解：(2)R程序：X<-c(1067,919,1196,785,1126,936,918,1156,920,948);n<-length(X);xb<

2、-mean(X);S2<-var(X);S<-sqrt(S2);T=(xb-1000)/(S/sqrt(n));结果：[1]0.5270268由此可知：该批灯泡能使用1000小时以上的概率为52.70268%o2・假设检验I正常男子血小板片数均值为225xIM/厶.今测得2()名男性油漆作业工人的血"收i

3、•数值(单位:1()9/厶)220188162230145160238188247113126245164231256183190158224175问油漆工人的血小板讣数与正常成年男子仔无差异，并说明油漆作业对人体血小板计数是

4、否有影响.3.假设检验II为研究某铁剂治疗和饮伐治疗管养性缺铁性贫血的效果，将1G名患者按年龄、体重、病程利病情相近的原则配成8对，分别使用饮食疗法和补充铁剂治疗的方法，三个月后测得两种患者血红蛋白如表5.1所示，问两种方法治疗后的表5.1铁剂和饮食两种方法治疗后患者血红蛋白值(g/L)铁剂治疗组11312013812010()118138123饮食治疗组13811G12513G11()13213011()患者血红蛋白有无差异.请选择两总体方差相同模型、两总体方差不同模型和成对数据模型作检验，并分析三种方法优缺点.4.假设检验I

5、U一项调查显示某城市老年人口比重为14.7%,该市老年研究协会为了检验该项调查是否可靠，随机抽选了400名居民，发现其中有57人是老年人，问调査结果是否支持该市老年人口比重为14.7%的看法(a=0.05)o解：由题可知,所检验的问题为：Ho：p=Po=O.147,IL：p^po.调用binom.test()函数binom.test(57,400,p=0.147)结果：Exactbinomialtestdata:57and400numberofsuccesses=57,numberoftrials=400,p-valuc=0.8

6、876alternativehypothesis:trueprobabilityofsuccessisnotequalto0.14795percentconfidenceinterval:0.10974770.1806511sampleestimates:probability^ofsuccess0.1425由此可知：P-值为0.8876>0.05,接受假设，所以该结果支持该城市老年人口的比重为14.7%的说法。5・分布检验IMoikIp］用豌豆的两对相对性状进行杂交实验,黄色圆滑种子与绿色皱缩种子的豌豆杂交后，第二代根据自由组

7、合规律，理论分离比为黄圆：萸皱：绿圆：绿皱=2:2:2:丄lbJblblb实际实验值为：黄圆315粒，賞皱101粒，绿圆108粒，绿皱32粒，共55G粒,问此结果是否符合自宙组合规律?解：调用chisq.test()函数，chisq.test(c(315,101,108,32),p=c(9,3,3,1)/16)结果：>chisq.test(c(315,101,108,32),p=c(9,3,3,1)/16)Chi-squaredtestforgivenprobabilitiesdata:c(315,101,10&32)X-squ

8、ared=0.47,df=3,p-value=0.9254由此可知：p-value=0.9254>0.05,接受原假设,即豌豆两对性状的分离符合自由组合规律。G.分布检验II观察每分钟进入某商店的人数X.任取2()()分钟，所得数据表5.2所示.试分析，能否认为每分钟顾客数X服从Poisson分布(a=().1).顾客人数频数表二2每分钟进入商店顾客人数的频数1234〔)•>92(；828II(I解:R程序：####输入数据X<-0:5;Y<-c(92,6&2&11,1,0)####计算理论分布，其中mean(rep(X,Y))

9、为样木均值q<-ppois(X,mean(rep(X,Y)));n<-length(Y)P〈-q[l]；p[n]<-l-q[n-l]for(iin2:(n-1))p[i]<-q[i]-q[i-l]####作检验chisq.test(Y,p二p)####重新分组Z