# NOT RUN {
test_df <- data.table(
a = c(1,2,3),
b = c(4,5,6),
c = c("a","a","b"),
d = c("a","a","b"))
test_df %>%
summarize.(avg_a = mean(a),
max_b = max(b),
.by = c)
test_df %>%
summarize.(avg_a = mean(a),
.by = c(c, d))
# }
Run the code above in your browser using DataLab