\begin{Schunk}
\begin{Sinput}
 x <- 1:6
 y <- rep(1/6, 6)
 barplot(y, names.arg=x, col=gray(0.85), ylim = c(0, 1), space = 0)
 title("All 6 outcomes are equally likely")
\end{Sinput}
\end{Schunk}
