Choisir et soigner l’affichage des résultats d’une fonction

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

 

 


Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *