作业帮能不能用R语言按下面编程形式将正态分布改为指数分布,画出指数分布概率密度和分布函数?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)}
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/11 16:35:41
![能不能用R语言按下面编程形式将正态分布改为指数分布,画出指数分布概率密度和分布函数?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)}](/uploads/image/z/13425887-47-7.jpg?t=%E8%83%BD%E4%B8%8D%E8%83%BD%E7%94%A8R%E8%AF%AD%E8%A8%80%E6%8C%89%E4%B8%8B%E9%9D%A2%E7%BC%96%E7%A8%8B%E5%BD%A2%E5%BC%8F%E5%B0%86%E6%AD%A3%E6%80%81%E5%88%86%E5%B8%83%E6%94%B9%E4%B8%BA%E6%8C%87%E6%95%B0%E5%88%86%E5%B8%83%2C%E7%94%BB%E5%87%BA%E6%8C%87%E6%95%B0%E5%88%86%E5%B8%83%E6%A6%82%E7%8E%87%E5%AF%86%E5%BA%A6%E5%92%8C%E5%88%86%E5%B8%83%E5%87%BD%E6%95%B0%3Fsigma%3D1u%3Dc%28-2%2C0%2C2%29%23%E8%AE%A1%E7%AE%97%E5%92%8C%E7%BB%98%E5%9B%BEx%3Dseq%28-6%2C6%2C0.1%29t1%3Dt2%3Dlist%28%29for%28i+in+1%3A3%29%7Bt1%5B%5Bi%5D%5D%3Ddnorm%28x%2Cu%5Bi%5D%2Csigma%29t2%5B%5Bi%5D%5D%3Dpnorm%28x%2Cu%5Bi%5D%2Csigma%29%7D)
能不能用R语言按下面编程形式将正态分布改为指数分布,画出指数分布概率密度和分布函数?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)}
能不能用R语言按下面编程形式将正态分布改为指数分布,画出指数分布概率密度和分布函数?
sigma=1
u=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))
能不能用R语言按下面编程形式将正态分布改为指数分布,画出指数分布概率密度和分布函数?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)}
如果只是画图,用curve()函数就好了
画正态密度：curve(dnorm,xlim=c(-3,3),col=2)
xlim是控制x轴显示从哪儿到哪儿,col是控制曲线颜色
画指数密度：curve(dexp(x,rate=1),xlim=c(0,5))
画指数分布：curve(pexp(x,rate=1),xlim=c(0,5))
你的方法是生成很多点x=seq(-6,6,0.1)
逐一算出函数值
t1[[i]]=dnorm(x,u[i],sigma)
t2[[i]]=pnorm(x,u[i],sigma)
最后在plot出来,用type="l"和lty=2的虚线弄出来.
curve这些功能都可以做到.
curve(dexp(x,rate=1),xlim=c(0,5),lty=2,add=T)就有虚线,
add=T可以一图多线