beta distribution

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均勻分佈