x <- seq(0, 1, length = 100)#生成100个(0,1)之间的数值
plot(dbeta(x,1,10))#严格递减 a=1,b>1
plot(dbeta(x,10,1))))#严格递增 a>1,b=1
plot(dbeta(x,0.5,0.5))#a<1,b<1
![](http://static.oschina.net/uploads/space/2013/1008/215753_Jigf_1272414.jpeg)
plot(dbeta(x,5,5))#a>1,b>1单峰
![](http://static.oschina.net/uploads/space/2013/1008/215920_lNXQ_1272414.jpeg)
plot(dbeta(x,1,1))#a=1,b=1均匀分布
x <- seq(0, 1, length = 100)#生成100个(0,1)之间的数值
plot(dbeta(x,1,10))#严格递减 a=1,b>1
plot(dbeta(x,10,1))))#严格递增 a>1,b=1
plot(dbeta(x,0.5,0.5))#a<1,b<1
plot(dbeta(x,5,5))#a>1,b>1单峰
plot(dbeta(x,1,1))#a=1,b=1均匀分布
转载于:https://my.oschina.net/u/1272414/blog/167310