Функция действительно хорошо работает на данных, давая, например:summaryТо, что я хотел бы сделать, это изменить функцию, чтобы она также давала после «среднего» запись для стандартного отклонения, эксцесса и перекоса.

> 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

Какой лучший способ сделать это? Я немного исследовал это, и добавление функции с помощью метода не работает для меня:

Вышеуказанное просто игнорируется. Я предполагаю, что мне нужно понять, как определить все возвращаемые классы.

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

Возможный дубликат