安工大概率论与数理统计实验试题(共3页).doc
精选优质文档-倾情为你奉上专业： 网络工程 ，座位号： 姓名 学号 ，任课老师： 胡文明 答 案 不 得 写 在 此 装 订 线 上 方概率论与数理统计实验试题 题号12345总分分数复核人 友情提醒：请同学们参考教材后面关于R语言的介绍，课后独立完成以下问题，直接将编程与运行结果黏贴到试卷上，然后用A3纸打印好交给老师。实验成绩的20%将作为平时成绩计入总分。老师将根据学生的试卷进行随机抽查，如发现同学不能解答你在试卷已经正确解答的类似问题的同学将以零分处理。 专心-专注-专业得分评卷人一、 某单位对40名女生测定血清总蛋白含量（g/L），数据如下：（注：请将第一题中的第一数据改为你的学号的后两位数字）74.3 78.8 68.8 78.0 70.4 80.5 80.5 69.7 71.2 73.5 79.5 75.6 75.0 78.8 72.0 72.0 72.0 74.3 71.2 72.0 75.0 73.5 78.8 74.3 75.8 65.0 74.3 71.2 69.7 68.073.5 75.0 72.0 64.3 75.8 80.3 69.7 74.3 73.5 73.5计算(1)均值、(2)方差、(3)标准差、（4）中位数、(5)极差、(6)标准误差、(7)变异系数、(8)偏度、(9)峰度、(10)五数总括。解： 代码：x <- c(1,74.3, 78.8, 68.8, 78.0, 70.4, 80.5, 80.5, 69.7, 71.2, 73.5,79.5, 75.6, 75.0, 78.8, 72.0, 72.0, 72.0, 74.3, 71.2, 72.0,75.0, 73.5, 78.8, 74.3, 75.8, 65.0, 74.3, 71.2, 69.7, 68.0,73.5, 75.0, 72.0, 64.3, 75.8, 80.3, 69.7, 74.3, 73.5, 73.5)n <- length(x)mean(x) #均值var(x) #方差sd(x) #标准差median(x)#中位数max(x) - min(x) #极差sd(x)/100(1/2) #标准误差100 * sd(x)/mean(x) #变异系数n/(n - 1) * (n - 2) * sum(x - mean(x)3/sd(x)3 # 偏度n * (n + 1)/(n - 1) * (n - 2) * (n - 3) * sd(x)4) * sum(x - mean(x)4 - 3 * (n - 1)2/(n - 2)/(n - 3) #峰度fivenum(x)#五数总括运行结果;得分评卷人二、绘出第一题的(1)直方图、(2)密度估计曲线、(3)经验分布图、(4)QQ图、(5)茎叶图、(6)箱线图。解：代码：:> hist(x)> plot(density(x), col = "blue")> plot(ecdf(x)> qqnorm(x); qqline(x)> stem(x)结果：得分评卷人三、(1)产生50个标准正态分布的随机数并画图。（2）利用R求（3）利用R计算下列各题：若服从，试求解：（1）> x<-rnorm(50,0,1)> hist(x)（2）qnorm(0.95)qnorm(0.975)qnorm(0.05)（3）P(X>0)=0.P(11<X<18)=0.-0.=0.得分评卷人四、已知一批产品的次品率为6%，从中有放回地抽取5个产品. 求5个产品中(1)没有次品的概率；(2)恰好有1个次品的概率；(3)有3个及3个以下次品的概率；(4)有2个及2个以上次品的概率。解：得分评卷人五、(1)绘制均值分别是-2和2，方差是1的正态曲线；(2)绘制均值都是0，方差分别是0.5,1,2的正态曲线。解：（1）（2）
