refnet <- RefNet()
providers(refnet)
# query all providers for all known Myc interactions
tbl.1 <- interactions(refnet, id="Myc", species="9606",
provider="gerstein-2012")
# all Myc/EP400 interactions known to BioGrid
# make sure that BioGrid is currently available
if("BioGrid" %in% providers(refnet))
tbl.2 <- interactions(refnet, c("Myc", "EP400"), species="9606",
provider="BioGrid")
# or those between Myc and any other molecule, detected by
# the "pull down" proteomics technique and judged to be
# a "direct interaction"
# recon2 temporarily unavailable. will be added to AnnotationHub soon
# tbl.3 <- interactions(refnet, "L-alanine transaminase", provider="recon2")
# tbl.3[, c("A.common", "type", "B.common", "A.canonical", "B.canonical")]
Run the code above in your browser using DataLab