Это должно дать вам представление о том, как это работает
library(pryr) # only for otype
x <- 1
attr(x, "class") <- "foo"
otype(x)
summary.foo <- function(x){
cat("Oh boy, it still is", x)
}
summary(x)
Читайте здесь здесь
То, что на самом деле делает ваша сводная функция, зависит от объекта. Это может быть сюжет, какой-то глубокий анализ или сводка по подвыборке или любым другим строкам вашей лодки, я имею в виду то, что кажется подходящим.
Мой совет - ознакомить с dplyr. Вы ищете что-то вроде
library(dplyr)
weather %>%
group_by(season) %>%
summarise(avg_rain = mean(rain, na.rm = T,
max_t = max(temp, na.rm = T)