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