# TO DRAW THE POSTERIORS CORRESPONDING TO "TWO RATHER DIFFERENT" BETA PRIORS in R: par(lwd=1.5,cex=1.5,mar=c(5,4,1,1)) x<-seq(0,1,length=601) plot(x,dbeta(x,567,1387),type="l", xlab=as.expression(as.name('theta')),ylab="density",cex=1.5) lines(x,dbeta(x,585,1369),lty=2) legend(.6,30,c("Beta(567,1387)","Beta(585,1369)"),lty=1:2)