ref <- c("A: Drug X", "B: Placebo")
groups <- combine_groups(fct = DM$ARM, ref = ref)
col_counts <- combine_counts(
fct = DM$ARM,
groups_list = groups
)
basic_table() %>%
split_cols_by_groups("ARM", groups) %>%
add_colcounts() %>%
analyze_vars("AGE") %>%
build_table(DM, col_counts = col_counts)
ref <- "A: Drug X"
groups <- combine_groups(fct = DM$ARM, ref = ref)
col_counts <- combine_counts(
fct = DM$ARM,
groups_list = groups
)
basic_table() %>%
split_cols_by_groups("ARM", groups) %>%
add_colcounts() %>%
analyze_vars("AGE") %>%
build_table(DM, col_counts = col_counts)
Run the code above in your browser using DataLab