\begin{Schunk}
\begin{Sinput}
> x <- seq(0,1, by=0.01)
> xdunif <- dunif(x)
> plot(x, xdunif, type="l", xlab="A Uniform Variate",ylab="Probability")
> lines(c(0,0),c(0,1),lty=4)
> lines(c(1,1),c(0,1),lty=4)
\end{Sinput}
\end{Schunk}
