# NOT RUN {
l <- basic_table() %>% split_cols_by("ARM") %>%
add_colcounts() %>%
split_rows_by("RACE", split_fun = drop_split_levels) %>%
analyze("AGE", afun = function(x) list(min = min(x), max = max(x)))
l
build_table(l, DM)
# }
Run the code above in your browser using DataLab