# NOT RUN {
vs_am_rules <- . %>%
dplyr::group_by(vs, am) %>%
dplyr::summarise(nrow_low = n(.) > 10,
nrow_up = n(.) < 20,
rowmeans_low = rowMeans(.) > 19)
group_packs(vs_am = vs_am_rules, .group_vars = c("vs", "am"))
# }
Run the code above in your browser using DataLab