a$.$ Last week's online lecture contained code very similar to the following improved

code:

population c$($rep $(1,10000),$rep$(0,5000)$

samples$\_$of c$()$

for $($i in $c(1$:$5000)\{$

x sum$($sample$($population$,20))/20$

samples$\_$ofc$($samples$\_$of$\_20,$ x$)$

$\}$

barplot$($table$($samples$\_$of$\_20))$

Run the above code and use $[]$ to list all the means in your $5,000$ samples of $20$ that

are between $0\mathrm{.}7$ and $0\mathrm{.}8$