To generate the samples, one can proceed like in Exercise 1.7 (pg. 44 in ISwR). A solution there is apply(sapply(rep(100,10),rnorm),2,mean). To understand how it works, start with help(sapply) and sapply(rep(100,10).

In the assignment, we need to pass parameters to the sample function. This is done by named parameters: sapply(1:1000,sample,x=101:111,size=5) . One could also use replicate in a similar manner or use a for loop instead of the implicit loop.

The means and medians are obtained like in Ex. 1.7.