\begin{Schunk}
\begin{Sinput}
> x <- seq(0.001,0.999, by=0.001)
> xd <- dbeta(x, 0.9, 0.9)
> plot(x, xd, type="l", xlab="A Beta Variate",ylab="Probability")
> lines(c(0,0),c(0,xd[1]),lty=4)
> lines(c(1,1),c(0,xd[1]),lty=4)
\end{Sinput}
\end{Schunk}
