{"word_count": 128, "character_count": 976}
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 &#60;- function(x){   meanx &#60;- mean (x)  medianx &#60;- median(x)  sdx &#60;- 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 &#60;- runif(10000, min = 0, max = 1)stats &#60;- 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.2888344L'objet créé contenant donc les résultats de la fonction :statsCe qui s'affiche dans la console :$moyenne[1] 0.5008029$mediane[1] 0.4997272$et[1] 0.2888344&#160;&#160;