adr_ <-
adr_ |>
add_drug(
d_code = ex_$d_groups_drecno,
drug_data = drug_
) |>
add_adr(
a_code = ex_$a_llt,
adr_data = adr_
)
desc_outcome(
adr_,
drug_s = "pd1",
adr_s = "a_colitis"
)
# you can vectorize over multiple adrs and drugs
desc_outcome(
adr_,
drug_s = c("pd1", "pdl1"),
adr_s = c("a_colitis", "a_pneumonitis")
)
Run the code above in your browser using DataLab