*** For the first week, we have a simple warm-up exercise for the discussion. Using R, generate 100 simulations of 30 samples each from a distribution (other than normal) of your choice. Graph the sampling distribution of means. Graph the sampling distribution of the minimum. Share your graphs and your R code. What did the simulation of the means demonstrate? What about the distribution of the minimum…? ***

set.seed(1) # for reproducible example

n <- 30 # size

# Binomial distribution using max of 100 and probability of 0.5
sim <- replicate(100, (rbinom(n, 100, .5)))

# Histogram of means
hist(colMeans(sim), main = 'Sampling Distribution of Means', xlab = 'Sampling Means' )

# Hisogram of minimums
hist(apply(sim, 2, FUN = min), main = 'Sampling Distribution of Minimums', xlab = 'Sampling Minimums')

The sampling distribution of the means approaches normality and the sampling distribution of the minimums skewed the the left.