# TO DRAW "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=101) plot(x,dbeta(x,1,19),type="l", xlab=as.expression(as.name('theta')),ylab="density",cex=1.5) lines(x,dbeta(x,19,1),lty=2) legend(.4,15,c("Beta(1,19)","Beta(19,1)"),lty=1:2)