J'essaie d'écrire ma première fonction d'enroulement, montrant la moyenne, la variance, le stdev et le résumé d'un vecteur en r

des_function = function(y)
  {
  mean(y); 
  var(y);
  sd(y);
  summary(y);
  }
des_function(even)

Mais il ne montre que les résultats de la fonction de résumé:

des_function(even)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    2.0   251.5   501.0   501.0   750.5  1000.0

Merci!

1
William Silvia 30 août 2020 à 20:56

2 réponses

Meilleure réponse

Je suggérerais ce léger changement:

#Function
des_function = function(y)
{
  list(
  mean(y), 
  var(y),
  sd(y),
  summary(y)
  )
}
#Apply
des_function(even)
1
Duck 30 août 2020 à 17:59

Nous pourrions créer un tibble et renvoyer le tibble

library(tibble)
des_function <- function(y) {
        tibble(Mean = mean(y), Var = var(y), SD = sd(y), Summary = list(summary(y)))
 }
0
akrun 30 août 2020 à 18:50