link_ <-
link_ |>
add_drug(
d_code = ex_$d_groups_drecno,
drug_data = drug_
) |>
add_adr(
a_code = ex_$a_llt,
adr_data = adr_
)
extract_tto(.data = link_,
adr_s = "a_colitis",
drug_s = "pd1")
extract_tto(.data = link_,
adr_s = c("a_colitis", "a_pneumonitis"),
drug_s = c("pd1", "ctla4"))
Run the code above in your browser using DataLab