library(dplyr)
DM2 <- DM |> mutate(RACE = factor(RACE), SEX = factor(SEX))
lyt <- basic_table() |>
split_cols_by("ARM") |>
split_cols_by("SEX") |>
split_rows_by("RACE") |>
append_topleft("Ethnicity") |>
analyze("AGE") |>
append_topleft(" Age")
tbl <- build_table(lyt, DM2)
tbl
Run the code above in your browser using DataLab