b$.$ If we cut and paste most of the above code back into an editing window and change all $20\text{'}$s to $30\text{'}$s we get the following code:

samples$\_$ofc$()$

for in $c(1$:$5000)$

sum$($sample$($population$,30))/30$

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

$\}$

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

We can produce samples of any size by cutting, pasting and manually changing sample sizes. However, this method will be cumbersome if we want to explore many different sample sizes.

Write a function that will draw $5,000$ samples of size $n$ from the population defined above, compute the mean of each sample and make a barplot of the distribution of means.