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