一蛙之见“贝叶斯”
> k=seq(5,100,10)
> par(mfrow=c(3,3),mai=c(0.6,0.5,0.2,0.1))
> for(i in 1:9)
> curve(dbeta(x, k[i], 5), xlim = c(0,1), ylim=c(0,20),ylab="T",main=substitute(Beta(b,10),list(b=k[i])),col="lightblue")> k=seq(5,100,10)
> par(mfrow=c(3,3),mai=c(0.6,0.5,0.2,0.1))
> for(i in 1:9)
> curve(dbeta(x, k[i], 5), xlim = c(0,1), ylim=c(0,20),ylab="T",main=substitute(Beta(b,10),list(b=k[i])),col="lightblue")