文档介绍：数学模型第七次作业数理统计实验
学会对数据的参数进行估计和作相应的假设检验
学会对分布进行检验和数据的秩检验
建立相应的统计模型,并用R软件求解
基本实验
1. 区间估计
已知某种灯泡寿命服从正态分布,在某星期所生产的该灯泡中随机抽取10只,测得其寿命(单位:小时)为
1067 919 1196 785 1126 936 918 1156 920 948
(1) 试问这批灯泡中大约95%的灯泡至少使用多少小时;
(2) 求这批灯泡能够使用1000小时以上的概率。
解:
(1)根据题意,使用R软件求解,编辑程序如下:
> X<-c(1067,919,1196,785,1126,936,918,1156,920,948)
> (X,al="g")
得到如下结果:
One Sample t-test
data: X
t = , df = 9, p-value = -10
alternative hypothesis: true mean is greater than 0
95 percent confidence interval:
Inf
sample estimates:
mean of x
由此知道这批灯泡中大约95%。
(2)
> x<-c(1067,919,1196,785,1126,936,918,1156,920,948)
> x
[1] 1067 919 1196 785 1126 936 918 1156 920 948
> pnorm(1000,mean(x),sd(x))
[1]
%
2. 假设检验I
正常男子血小板计数均值为225×109/L,今测得20名男性油漆作业工
人的血小板计数值(单位:109/L)
220 188 162 230 145 160 238 188 247 113
126 245 164 231 256 183 190 158 224 175
问油漆工人的血小板计数与正常成年男子有无差异,并说明油漆作业对人体血小板计数是否有影响。
解:
根据题意,设原假设为H0:与正常男子血小板计数无差异,对立假设H1:与正常男子血小板计数有差异。
可以使用R软件求解此问题,
> x<-c(220, 188, 162, 230, 145, 160, 238, 188, 247, 113, 126, 245, 164, 231, 256, 183, 190, 158, 224, 175)
> (x,mu=225,alternative="less")
得到如下结果:
One Sample t-test
data: x
t = -, df = 19, p-value =
alternative hypothesis: true mean is less than 225
95 percent confidence interval:
-Inf
sample estimates:
mean of x
做出原假设:油漆工人的血小板计数与正常成年男子无差异;做出备择假设:油漆工人的血小板计数与正常成年男子有差异。
此时的P-,拒绝原假设,因此认为油漆工人的血小板计数与正常成年男子有差异。
为研究国产四类新药阿卡波糖胶囊效果,某医院用40名II型糖
尿病病人进行同期随机对照试验。试验者将这些病人随机等分到试验组(阿卡波糖胶囊组)和对照组(拜唐苹胶囊),分别测得试验开始前和8周后的空腹血糖,算得空腹血糖下降值如表下:
试验组- - - - -
对照组 - -
(1)假设数据服从正态分布,试用t检验(讨论方差相同和方差不同两种情况)和成对t检验来判断:国产四类新药阿卡波糖胶囊拜唐苹胶囊对空腹血糖的降糖效果是否相同?并分析三种检验方法各自的优越性。
(2)检验