Starter's code for sampling in R (Monte Carlo and Bootstrap)