\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}