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.?

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 3.2.3

n<-100

# unsing exponential distribution with rate=1.0


# Sampling for mean distribution
x1<-replicate(100,mean(sample(rexp(30,rate=1))))


plt1 = ggplot(data.frame(x1), aes(x=x1)) +stat_bin(binwidth=0.10, position="identity")

plt1

# Sampling for min distribution
x2<-replicate(100,min(sample(rexp(30,rate=1))))

plt2 = ggplot(data.frame(x2), aes(x=x2)) +stat_bin(binwidth=0.01, position="identity")
plt2