# NOT RUN {
data(wind.series)
df <- tidy(wind.series)
head(df)
# }
# NOT RUN {
# use the tidyverse
library(dplyr)
mean_speed <- tidy(wind.series) %>%
group_by(lat, lon) %>%
summarise(speed = mean(speed))
wind_average2 <- wind.mean(wind.series)
all.equal(wind_average2$speed, mean_speed$speed)
# }
Run the code above in your browser using DataLab