knitr::opts_chunk$set(echo = TRUE)

R Markdown

Make 100 iterations of 30 random samples. I used the uniform distribution.

library(ggplot2)
minvalue <- 0
meanvalue <- 0
for(i in 1:100){
  x <- runif(30)
  minvalue <- rbind(minvalue,min(x))
  meanvalue <- rbind(meanvalue, mean(x))
}
minvalue <- minvalue[2:101]
meanvalue <- meanvalue[2:101]
ggplot() + aes(minvalue) + geom_histogram(color="blue", fill="green") + ggtitle("Minimum Values")
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot() + aes(meanvalue) + geom_histogram(color="green", fill="blue") + ggtitle("Mean values")
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.