Generate 100 simulations of 30 samples each from a distribution

means<-numeric(100)
minimums<-numeric(100)
for (i in 1:100) 
{
  #Exponential distribution 
  population <- rexp(30)
  
  means[i]<-mean(population)
  minimums[i]<-min(population)
  
}

Graph the sampling distribution of means

hist(means)

This graph looks normally distributed.

Graph the sampling distribution of the minimum

hist(minimums)

The histogram is looks right-skewed because a larger percent of the values are located on the lower tail.