series = matrix(0,100,20)

moyennes = c()
etypes = c()

for (i in 1:20) {
  print(paste("--- Série",i))

  data = runif(100)
  
  series[,i] <- data
  
  print(paste("Écart interquartile:",IQR(data)))
  
  m = mean(data)
  moyennes <- c(moyennes, m)
  print(paste("Moyenne", m))
  
  etype = sd(data)
  etypes <- c(etypes, etype) 
  print(paste("Écart-Type:", etype))
}

boxplot(series,horizontal = FALSE)

print("--------------------")
print(paste("Moyenne des moyennes:",mean(moyennes)))
print(paste("Moyenne des ecart types",mean(etypes)))