final_exo2_enR

module2/exo2/exercice_fr.Rmd

@@ -18,10 +18,14 @@ x <- c(14.0, 7.6, 11.2, 12.8, 12.5, 9.9, 14.9, 9.4, 16.9, 10.2, 14.9, 18.1, 7.3,
 result.mean <- mean(x)
 result.max <- max(x)
 result.min <- min(x)
+result.median <- round(median(x),digits=2)
+result.ecarttype <- round(sd(x),digits=2)
 M=round(result.mean,digits=2)
 print(M)
 print(result.max)
 print(result.min)
+print(round(median(x),digits=2))
+print(round(sd(x),digits=2))
 ```