02-DMT01.qmd

---
title: "Demographics and Baseline Characteristics (DMT01)"
editor: source
format: 
  html:
    page-layout: full
    code-fold: true
    code-summary: "Show the code"
    code-overflow: scroll 
    df-print: kable
---
```{css, echo = FALSE}
.output {
max-width: 800px;
overflow-x: scroll;
}
```

## Calculating DMT01 statstics using the {cards} package

In this example below, we calculate the same summary statistics usings the {cards} package with the same data set provided by the {chevron} package.

```{r}
#| code-summary: "Show the code"
library(cards)
library(chevron)

# build ARDs that calculate relevant statistics for continuous and categorical variables.

ards <- ard_stack(syn_data$adsl, ard_continuous(variables = c(AGE)),
                 ard_categorical(variables = c(AGEGR1, SEX, ETHNIC, RACE)),
                 .by = "ARM",
                 .overall = TRUE)

ards[, 1:8]
```