AE <- data.frame(
STUDY = c(rep("1", 6)),
DOMAIN = c(rep("AE", 6)),
USUBJID = c(rep("PT1", 6)),
AESEQ = c(1, 2, 3, 4, 5, 6),
AETERM = rep("AE Raw Term",6),
AEDECOD = rep("AE Preferred Term",6),
AESPID = c("FORMNAME-R:13/L:13XXXX",
"FORMNAME-R:16/L:16XXXX",
"FORMNAME-R:2/L:2XXXX",
"FORMNAME-R:19/L:19XXXX",
"FORMNAME-R:5/L:5XXXX",
"FORMNAME-R:20/L:20XXXX"),
AESTDTC = c(rep("2020-01-01", 6)),
stringsAsFactors = FALSE
)
roche_derive_rave_row(AE)
Run the code above in your browser using DataLab