data <- cdisc_data(
join_keys = join_keys(
join_key("ADSL", "ADTTE", c("STUDYID" = "STUDYID", "USUBJID" = "USUBJID"))
)
)
data <- within(data, {
ADSL <- example_cdisc_data("ADSL")
ADTTE <- example_cdisc_data("ADTTE")
})
Run the code above in your browser using DataLab