\begin{Schunk}
\begin{Sinput}
> N <- 50
> xbinom <- rbinom(N, size = 1, prob = 0.3)
> hist(xbinom, xlab="x is either 0 or 1", main = "30 Observations from a Binomial")
> m1 <- round(mean(xbinom), 4)
> legend("top", c(paste("Mean=",m1)))
\end{Sinput}
\end{Schunk}
