\begin{Schunk}
\begin{Sinput}
  x <- rbinom(481, size=1, prob=0.2)
  hist(x, prob = TRUE, xlab="Number of Successes Out of 1 Experiments", main="481 Draws from Binom(1, 0.2)")
\end{Sinput}
\end{Schunk}
