psicquic <- PSICQUIC()
providers <- providers(psicquic)
# query BioGrid for all known ALK interactions
if("BioGrid" %in% providers){
tbl.1 <- rawQuery(psicquic, providers[1], "identifier:ALK AND species:9606")
# what publications?
table(tbl.1$V8)
}
# query the iRefIndex provider for interactions between
# two specified ids. then further contrain by publication.
if("iRefIndex" %in% providers){
rawArgs.1 <- "identifier:(ALK AND MAP3K3) AND species:9606"
tbl.2 <- rawQuery(psicquic, "iRefIndex", rawArgs.1)
rawArgs.2 <- paste(rawArgs.1, " AND pubid:(15657099 OR 14743216)", sep="")
tbl.3 <- rawQuery(psicquic, "iRefIndex", rawArgs.2)
}
Run the code above in your browser using DataLab