# NOT RUN {
zoomed <- dm_nycflights13() %>%
dm_zoom_to(flights) %>%
group_by(month) %>%
arrange(desc(day)) %>%
summarize(avg_air_time = mean(air_time, na.rm = TRUE))
zoomed
dm_insert_zoomed(zoomed, new_tbl_name = "avg_air_time_per_month")
# }
Run the code above in your browser using DataLab