# \donttest{
# Create a sample SDTM DM domain
dm <- data.frame(
STUDYID = "STUDY001",
USUBJID = "SUBJ001",
SUBJID = "001",
DMSEQ = 1,
RACE = "WHITE",
ETHNIC = "NOT HISPANIC OR LATINO",
ARMCD = "ARM01",
ARM = "Treatment A",
stringsAsFactors = FALSE
)
result <- detect_cdisc_domain(dm)
print(result)
# }
Run the code above in your browser using DataLab