this is why we have to end early
min<- c(10,10,10,15,5,10,10,20,10,20,15,10,5) mean(min)
## [1] 11.53846
hist(min)
boxplot(min)