Téléverser les fichiers vers "/"

script_tp2.R

@@ -0,0 +1,28 @@
+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)))