<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">\begin{Schunk}
\begin{Sinput}
&gt; calcMean &lt;- function(i) mean(rbinom(N, 1, 0.3))
&gt; means &lt;- sapply(1:100, calcMean)
&gt; hist(means, xlab = "estimates of proportion of success")
&gt; m1 &lt;- round(mean(means), 4)
&gt; legend("top", c(paste("Mean of means=", m1)))
\end{Sinput}
\end{Schunk}
</pre></body></html>