\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)
lines(c(0.2, 0.2), c(0, 1), lty = 4)
lines(c(0.5, 0.5), c(0, 1), lty = 4)
polygon(c(0.2, 0.2, 0.5, 0.5), c(0, 1, 1, 0), col = "gray90")
text(0.35, 0.5, "This area represents \n the probability \n of an outcome \n between 0.2 and 0.5",
cex = 0.8)
lines(c(0, 1), c(0, 0), lwd = 0.3)
\end{Sinput}
\end{Schunk}