if (FALSE) #Make beta slide
{
  makepdf = FALSE
  a = 5
  b = 5
  theta = seq(0,1,.01)
  y = dbeta(theta,a,b)
  if (makepdf)
  {
    fname = '../pdftex/img/class14-1.pdf'
    pdf(file=fname, width=3, height=2)
    par(mar=c(2,2,1.7,.1))
  } 
  title = expression(paste('Beta(5,5) for ',theta))
  plot(theta,y, type='l', lwd=3, col='orange', xlab='', ylab='',
       main=title,cex.main=1.4,cex.lab=1.3, cex.axis = 1)

  if (makepdf)
    dev.off()
}