SS <- data.frame(
USUBJID = 1:5,
SSDTC = "2020-01-02",
SSSTRESC = c("DEAD","DEAD","ALIVE","DEAD","ALIVE"),
VISIT = "DAY 10"
)
DM <- data.frame(
USUBJID = 1:5,
DTHDTC = "2020-01-02"
)
check_ss_ssdtc_dead_dthdtc(SS, DM)
SS <- data.frame(
USUBJID = 1:5,
SSDTC = "2020-01-02",
SSSTRESC = c("DEAD","DEAD","ALIVE","DEAD","ALIVE"),
VISIT = "FOLLOW-UP"
)
DM <- data.frame(
USUBJID = 1:5,
DTHDTC = c("2020-01-01","2020-01-02","2020-01-03","2020-01-04","2020-01-02")
)
check_ss_ssdtc_dead_dthdtc(SS, DM)
Run the code above in your browser using DataLab