28 lines
572 B
R
28 lines
572 B
R
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))) |