R语言实验七文档格式.docx

1、解：提出假设：H0：油漆工人的血小板计数与正常成年男子无差异H1：油漆工人的血小板计数与正常成年男子有差异源代码及运行结果：（复制到此处，不需要截图）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）结论：One Sample t-testdata: xt = , df = 19, p-value = alternative hypothesis: true mean is not equal to 22595 perce

2、nt confidence interval: sample estimates:mean of x P=,拒绝原假设，认为油漆工人的血小板计数与正常成年男子有差异3.（习题）已知某种灯泡寿命服从正态分布，在某星期所生产的该灯泡中随机抽取10 只，测得其寿命（单位：小时）为1067 919 1196 785 1126 936 918 1156 920 948求这个星期生产出的灯泡能使用1000小时以上的概率。 x-c（1067, 919, 1196, 785, 1126, 936, 918, 1156, 920, 948） p-pnorm（1000,mean（x）,sd（x） 1-p1 这个星

3、期生产出的灯泡能使用1000小时以上的概率为4.（习题）为研究某铁剂治疗和饮食治疗营养性缺铁性贫血的效果，将16名患者按年龄、体重、病程和病情相近的原则配成8对，分别使用饮食疗法和补充铁剂治疗的方法，3个月后测得两种患者血红资白如下表所示，问两种方法治疗后的患者血红蛋白有无差异铁剂和饮食两种方法治疗后患者血红蛋白值 （g/L）铁剂治疗组113120138100118123饮食治疗组116125136110132130两种方法治疗后的患者血红蛋白无差异两种方法治疗后的患者血红蛋白有差异-c（113,120,138,120,100,118,138,123） y,不拒绝原假设，两种方法治疗后的患者血

4、红蛋白无差异5.（习题）为研究国产四类新药阿卡波糖股嚢效果，某医院用40 名型糖尿病病人进行同期随机对照实验。试验者将这些病人随机等分到试验组（阿卡波糖股嚢组）和对照组（拜唐苹股嚢组），分别测得试验开始前和8周后空腹血糖，算得空腹血糖下降值，如下所示。能否认为国产四类新药阿卡波糖股嚢与拜唐苹股嚢对空腹血糖的降糖效果不同试验组与对照组空腹腔血糖下降值（mmol/L）试验组（n1 = 20）对照组（n2 = 20）（1）检验试验组和对照组的的数据是否来自正态分布，采用正态性W检验方法（见第3章）、Kolmogorov-Smirnov检验方法和Pearson拟合优度2检验；认为国产四类新药阿卡波糖股

5、嚢与拜唐苹股嚢对空腹血糖的降糖效果不同认为国产四类新药阿卡波糖股嚢与拜唐苹股嚢对空腹血糖的降糖效果相同正态性W检验方法-c, （x） Shapiro-Wilk normality testW = , p-value = y,对照组p=,所以检验试验组和对照组的的数据是来自正态分布Kolmogorov-Smirnov检验方法 （x,pnorm,mean（x）,sd（x） One-sample Kolmogorov-Smirnov testD = , p-value = two-sidedWarning message:In （x, , mean（x）, sd（x） : Kolmogorov -

6、Smirnov检验里不应该有连结 （y,mean（y）,sd（y）In （y, , mean（y）, sd（y） :Pearson拟合优度2检验 A-table（cut（x,br=c（-6,-3,0,3,6,9）-pnorm（c（-3,0,3,6,9）,mean（x）,sd（x） p1 0. 0. 0. 0.-c（p1,p2-p1,p3-p2,p4-p3,1-p4）1 0. 0. 0. （A,p=p） Chi-squared test for given probabilities AX-squared = , df = 4, p-value = In （A, p = p） : Chi-squ

7、ared近似算法有可能不准 B,对照组的p= ,因此试验组和对照组都服从正态分布（2）用 t检验两组数据均值是否有差异，分别用方差相同模型、方差不同模型和成对t检验模型；两组数据均值没有差异两组数据均值是有差异方差相同模型 （x,y, =TRUE） Two Sample t-testt = , df = 38, p-value = mean of x mean of y ,不拒绝原假设，两组数据均值没有差异方差不同模型 （x,y） Welch Two Sample t-testt = , df = , p-value = p= , 不拒绝原假设，两组数据均值没有差异成对t检验模型（3）检验试验

8、组与对照组的方差是否相同。试验组与对照组的方差相同试验组与对照组的方差不相同 F test to compare two variancesF = , num df = 19, denom df = 19, p-value = true ratio of variances is not equal to 1ratio of variances ,不拒绝原假设，试验组与对照组的方差相同6.（习题）为研究某种新药对抗凝血酶活力的影响，随机安排新药组病人12例，对照组病人10例，分别测定其抗凝血酶活力（单位：mm3），其结果如下：新药组：126 125 136 128 123 138 142 11

9、6 110 108 115 140对照组：162 1 72 1 77 1 70 1 75 152 157 159 160 162试分析新药组和对照组病人的抗凝血酶活力有无差别（ = 。（1）检验两组数据是否服从正态分布；（2）检验两组样本方差是否相同；（3）选择最合适的检验方法检验新药组和对照组病人的抗凝血酶活力有无差别。（1）检验两组数据是否服从正态分布新药组数据新药组数据服从正态分布新药组数据不服从正态分布-c（126,125,136,128,123,138,142,116,110,108,115,140） 对照组数据对照组数据服从正态分布对照组数据不服从正态分布-c（162, 172 ,

10、177 ,170 ,175, 152 ,157 ,159, 160 ,162）两组样本方差相同两组样本方差不相同-c（126,125,136,128,123,138,142,116,110,108,115,140）F = , num df = 11, denom df = 9, p-value = 新药组和对照组病人的抗凝血酶活力无差别新药组和对照组病人的抗凝血酶活力有差别t = , df = 20, p-value = p= ,不拒绝原假设，调查结果支持该市老年人口比重为%的看法8.（习题）作性别控制试验，经某种处理后，共有雏鸡328只，其中公雏150只，母雏178只，试问这种处理能否增加母

11、雏的比例（性别比应为1：1）。这种处理不能增加母雏的比例这种处理能增加母雏的比例 （178,328,p=,alternative=greater 178 and 328number of successes = 178, number of trials = 328, p-value = true probability of success is greater than P值=,不拒绝原假设，这种处理不能增加母雏的比例9.（习题）Mendel用豌豆的两对相对性状进行杂交实验，黄色圆滑种子与绿色皱缩种子的豌豆杂交后，第二代根据自由组合规律，理论分离比为黄圆：黄皱：绿圆：绿皱 = （ 9/16

12、）：（3/16）：（1/16）实际实验值为：黄圆315粒、黄皱101粒、绿圆108粒、绿皱32粒，共556粒。问此结果是否符合自由组合规律的理论分离比符合自由组合规律的理论分离比不符合自由组合规律的理论分离比 （c（315,101,108,32）,p=c（9,3,3,1）/16） c（315, 101, 108, 32）,接受原假设，符合自由组合规律的理论分离比10.（习题）观察每分钟进入某商店的人数X，任取200分钟，所得数据如下：顾客人数12345频数92682811试分析，能否认为每分钟顾客数X服从Poisson分布（ =）。能认为每分钟顾客数X服从Poisson分布不能认为每分钟顾客数

13、X服从Poisson分布 X-0:5;Y-c（92,68,28,11,1,0） q-ppois（X,mean（rep（X,Y）;n-length（Y）-numeric（n） p1-q1;pn=1-qn-1 for（i in 2:（n-1）+ pi-qi-qi-1 （Y,p=p） YX-squared = , df = 5, p-value = In （Y, p = p） :重新分组，合并频数小于5的组： Z-c（92,68,28,12） n-length（Z）;p-p1:n-1; pn=1-qn-1 （Z,p=p） Z,接受原假设，能认为每分钟顾客数X服从Poisson分布11.（习题）观察得两样本值如下试分析，两样本是否来自同一总体（ =）。两样本是来自同一总体两样本不是来自同一总体-c,-c, Two-sample Kolmo