Code
library(scda)
library(scda.2022)
library(dplyr)
library(rlistings)
adsl <- synthetic_cdisc_dataset("latest", "adsl")
out <- adsl %>%
filter(DTHFL == "Y") %>%
mutate(ID = paste(SITEID, SUBJID, sep = "/")) %>%
select(ARM, ID, DTHCAUS)
death_num <- length(unique(out$ID))
var_labels(out) <- c(
ARM = "Treatment Group",
ID = "Center/Patient ID",
DTHCAUS = "Cause of Death"
)