psicquic <- PSICQUIC()
providers(psicquic)
# query all providers for all known Myc interactions
tbl.1 <- interactions(psicquic, id="Myc", species="9606",
provider=providers(psicquic)[1:3])
# all Myc/EP400 interactions known to BioGrid
# make sure that BioGrid is currently available
if("BioGrid" %in% providers(psicquic))
tbl.2 <- interactions(psicquic, 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"
tbl.3 <- interactions(psicquic, "Myc", species="9606",
detectionMethod="pull down",
type="direct interaction")
Run the code above in your browser using DataLab