\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")
 polygon(c(0, 0, 0.3, 0.3), c(0, 1, 1, 0), col = "gray95", border = NA)
 polygon(c(0.3, 0.3, 0.5, 0.5), c(0, 1, 1, 0), col = "gray93", border = NA)
 polygon(c(0.5, 0.5, 0.7, 0.7), c(0, 1, 1, 0), col = "gray90", border = NA)
 lines(c(0, 0), c(0, 1), lty = 2)
 lines(c(1, 1), c(0, 1), lty = 2)
 lines(c(0.3, 0.3), c(0, 1), lty = 4)
 lines(c(0.5, 0.5), c(0, 1), lty = 4)
 lines(c(0.7, 0.7), c(0, 1), lty = 4)
 text(0.15, 0.2, "outcomes \n below \n 0.3")
 text(0.25, 0.55, "outcomes below 0.5")
 text(0.45, 0.75, "outcomes below 0.7")
 text(0.5, 1.15, expression(f(x)))
 lines(c(0, 1), c(0, 0), lwd = 0.3)
\end{Sinput}
\end{Schunk}
