\begin{Schunk}
\begin{Sinput}
 x <- seq(from = 0, to = 1, by = 1)
 y <- c(1, 1)
 plot(x, y, type = "l", xlab = "x", ylab = "", main = "", ylim = c(0, 1.2), bty = "L")
 lines(c(0, 0), c(0, 1), lty = 2)
 lines(c(1, 1), c(0, 1), lty = 2)
 text(0.5, 0.5, "Any value in [0,1] may arise \n All points are equally likely")
 lines(c(0, 1), c(0, 0), lwd = 0.3)
\end{Sinput}
\end{Schunk}
