SS <- data.frame(
USUBJID = 1:5,
SSDTC = "2020-01-02",
SSTESTCD = "SURVSTAT",
SSORRES = c("DEAD","DEAD","ALIVE","DEAD","ALIVE"),
VISIT = "WEEK 4"
)
DM <- data.frame(
USUBJID = 1:5,
DTHDTC = "2020-01-03"
)
check_ss_ssdtc_alive_dm(SS, DM)
SS <- data.frame(
USUBJID = 1:5,
SSDTC = "2020-01-04",
SSTESTCD = "SURVSTAT",
SSORRES = c("DEAD","DEAD","ALIVE","DEAD","ALIVE"),
VISIT = "WEEK 4"
)
DM <- data.frame(
USUBJID = 1:5,
DTHDTC = c("2020-01-04", "2020-01-05", "2020-01-03", "2020-01-04", "2020-01-05")
)
check_ss_ssdtc_alive_dm(SS, DM)
Run the code above in your browser using DataLab