inst/test/code/summarize-4.R

In seankross/mario:

library(dplyr)

mt <- mtcars %>%
  as_tibble() %>%
  filter(cyl < 8) %>%
  select(mpg, cyl, am) %>%
  arrange(cyl, am) %>%
  slice(1, 2, 5, 12, 17, 18) %>%
  group_by(cyl, am)

mt %>%
  summarize(mean(mpg))