ard <- nest_for_ard(
data =
ADAE |>
dplyr::left_join(ADSL[c("USUBJID", "ARM")], by = "USUBJID") |>
dplyr::filter(AOCCSFL %in% "Y"),
by = "ARM",
strata = "AESOC",
rename_columns = FALSE
)
cards:::.nesting_rename_ard_columns(ard, by = "ARM", strata = "AESOC")
Run the code above in your browser using DataLab