AE <- data.frame(
USUBJID = 1:5,
AEDECOD = c("This is a covid AE", "covid-19", "covid-19","Some AE", "CORONAVIRUS POSITIVE" ),
AEACNOTH=c("SUBJECT DISCONTINUED FROM STUDY",
"NONE",
"NONE",
"SUBJECT DISCONTINUED FROM STUDY",
"NONE"),
AEACNOTH1=c("SUBJECT DISCONTINUED FROM STUDY",
"NONE",
"SUBJECT DISCONTINUED FROM STUDY",
"NONE",
"SUBJECT DISCONTINUED FROM STUDY"),
AEACNOTH2=c("SUBJECT DISCONTINUED FROM STUDY",
"NONE",
"NONE",
"SUBJECT DISCONTINUED FROM STUDY",
"NONE")
)
DS <- data.frame(
USUBJID = 1:3,
DSSCAT=c("TREATMENT DISCONTINUATION",
"STUDY DISCONTINUATION",
"STUDY DISCONTINUATION"),
DSDECOD="DISCON REASON"
)
#expect fail
check_ae_aeacnoth_ds_stddisc_covid(AE,DS)
#use custom terms for identifying covid AEs
check_ae_aeacnoth_ds_stddisc_covid(
AE,
DS,
covid_terms=c("COVID-19", "CORONAVIRUS POSITIVE","THIS IS A COVID AE")
)
Run the code above in your browser using DataLab