Cette fonction affiche de façon simple les résultats sous forme de texte dans la console et permet l’export des résultats dans un objet.

FUN <- function(x){ 
  meanx <- mean (x)
  medianx <- median(x)
  sdx <- sd(x)
  cat("La moyenne est de", meanx,"\n")
  cat("La médiane est de", medianx,"\n")
  cat("L'écart-type est de",sdx)
  invisible(list(moyenne=meanx, 
                 mediane=medianx, 
                 et=sdx))
}

La fonction cat permet l’affichage simple, sans formatage excessif d’un texte dans la console. Tandis que la fonction invisible permet l’export “invisible” des objets produit par la fonction.

x <- runif(10000, min = 0, max = 1)
stats <- FUN(x) # ou FUN(x)

Ce qui s’affiche dans la console :

La moyenne est de 0.5008029 
La médiane est de 0.4997272 
L'écart-type est de 0.2888344

L’objet créé contenant donc les résultats de la fonction :

stats

Ce qui s’affiche dans la console :

$moyenne
[1] 0.5008029

$mediane
[1] 0.4997272

$et
[1] 0.2888344

 

 

---

---