\begin{Schunk}
\begin{Sinput}
  xseq <- seq(0,1, by=0.01)
  xdunif <- dunif(xseq)
  plot(xdunif ~ xseq, 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}
