大学MOOC 统计模型与统计实验(电子科技大学中山学院)1450298344 最新慕课完整章节测试答案
实验三 概率模型实验
实验三测试(客观题)
1、单选题：
以下哪个R程序是分析“三个臭皮匠,顶个诸葛亮”的。
选项：
A: #1-初始参数N=1000 #重复次数n=c(22,40,50,64) #样本数y1=y2=y3=c() #空向量，用于保存频数、频率和理论频率#2-计算#随机抽取n个数并进行判断，是则返回TRUE，否则返回FALSEfun0305=function(n){ t1=round(runif(n,1,365),digits=0) #在1-365中随机抽取n个数，并四舍五入 if(any(diff(sort(t1))==0)) return(T) else return(F) #进行判断}#重复1000次，并返回结果for(i in 1:length(n)){ y=sapply(rep(n[i],N),fun0305) y1[i]=sum(y) #计算频数}y2=y1/N #计算频率y3=1-choose(365,n)*factorial(n)/365^n #计算理论值z=rbind(y1,y2,y3)colnames(z)=paste("r=",n,sep="") #列名rownames(z)=c("频数","频率","理论频率") #行名z
B: n=c(100,1000,5000,10000)fun0306=function(x){ sum(abs(runif(x,0,60)-runif(x,0,60))<=20) }y=sapply(n,fun0306) rbind(y,y/n)
C: # 程序ch010304.Rn=c(100,1000,5000)p0=0.9;p1=0.45;p2=0.55;p3=0.6pb=1-(1-p1)*(1-p2)*(1-p3)#计算能够回答出结果的次数fun0307=function(n,p){ sum(runif(n)<=p) }#进行计算sapply(n,fun0307,p=p0) sapply(n,fun0307,p=p1) sapply(n,fun0307,p=p2) sapply(n,fun0307,p=p3) sapply(n,fun0307,p=pb)
D: #参数sigma=1u=c(-2,0,2)#计算和绘图x=seq(-6,6,0.1)t1=t2=list()for(i in 1:3){ t1[[i]]=dnorm(x,u[i],sigma) t2[[i]]=pnorm(x,u[i],sigma)}par(mar=c(2,2,2,1))plot(x,t1[[1]],xlim=c(-6,6),type="l",lty=2,col=2) lines(x,t1[[2]])lines(x,t1[[3]],col=4,lty=3)text(u,0.35,paste("u=",u,sep=""),col=c(2,1,4))plot(x,t2[[1]],xlim=c(-6,6),type="l",lty=2,col=2) lines(x,t2[[2]])lines(x,t2[[3]],col=4,lty=3) text(u,0.5,paste("u=",u,sep=""),col=c(2,1,4))
答案: 【 # 程序ch010304.Rn=c(100,1000,5000)p0=0.9;p1=0.45;p2=0.55;p3=0.6pb=1-(1-p1)*(1-p2)*(1-p3)#计算能够回答出结果的次数fun0307=function(n,p){ sum(runif(n)<=p) }#进行计算sapply(n,fun0307,p=p0) sapply(n,fun0307,p=p1) sapply(n,fun0307,p=p2) sapply(n,fun0307,p=p3) sapply(n,fun0307,p=pb) 】
2、多选题：
实验三概率模型实验包括( )实验。
选项：
A: 高尔顿钉板实验
B: 生日问题
C: 会面问题
D: 协方差与相关系数
答案: 【 高尔顿钉板实验;
生日问题;
会面问题;
协方差与相关系数】
3、判断题：
(会面问题) 甲、乙二人约定八点到九点在某地会面, 先到者等20分钟离去, 试求两人能会面的概率.输入R程序n=c(100,1000,5000,10000)fun0306=function(x){ sum(abs(runif(x,0,60)-runif(x,0,60))<=20) }y=sapply(n,fun) rbind(y,y/n)
选项：
A: 正确
B: 错误
答案: 【 错误】
4、填空题：
答案: 【 (y-bn*n*p)/(bn*n*p*(1-p))】