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$\_20<-$ c$()$ for $($i in c$(1$:$5000))\backslash$times $<-$sum$($sample$($population$,20))/20$ samples$\_$of$\_20<-$ c$($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$