Commit 4d0d5158 authored by alisiachiadorana's avatar alisiachiadorana

final_exo2_enR

parent 0ac2cab6
...@@ -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, ...@@ -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.mean <- mean(x)
result.max <- max(x) result.max <- max(x)
result.min <- min(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) M=round(result.mean,digits=2)
print(M) print(M)
print(result.max) print(result.max)
print(result.min) print(result.min)
print(round(median(x),digits=2))
print(round(sd(x),digits=2))
``` ```
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment