Como estender a função 'resumo' para incluir sd, curtose e inclinação?

R'ssummary A função funciona muito bem em um quadro de dados, fornecendo, por exemplo:

> summary(fred)
   sum.count          count              sum              value      
 Min.   : 1.000   Min.   :    1.0   Min.   :      1   Min.   : 0.00  
 1st Qu.: 1.000   1st Qu.:    6.0   1st Qu.:      7   1st Qu.:35.82  
 Median : 1.067   Median :    9.0   Median :     10   Median :42.17  
 Mean   : 1.238   Mean   :  497.1   Mean   :   6120   Mean   :43.44  
 3rd Qu.: 1.200   3rd Qu.:   35.0   3rd Qu.:     40   3rd Qu.:51.31  
 Max.   :40.687   Max.   :64425.0   Max.   :2621278   Max.   :75.95

O que eu gostaria de fazer é modificar a função para também fornecer, após 'Mean', uma entrada para o desvio padrão, a curtose e a inclinação.

Qual é a melhor forma de fazer isso? Eu pesquisei isso um pouco, e adicionar uma função com um método não funciona para mim:

> summary.class <- function(x)
{
  return(sd(x))
}

O acima exposto é apenas ignorado. Suponho que preciso entender como definir todas as classes para retornar.

questionAnswers(2)

yourAnswerToTheQuestion