# Set the random seed
set.seed(123456)
# Draw a sample given the population parameters
sample <- rnorm(100,10,2)
# Estimate the population mean with the sample average
mean(sample)
# Draw a different sample and estimate again:
sample <- rnorm(100,10,2)
mean(sample)
# Draw a third sample and estimate again:
sample <- rnorm(100,10,2)
mean(sample)