xmlDir <- system.file("/extdata/psi25files",package="RpsiXML")
hprdxml <- file.path(xmlDir, "hprd_200709_test.xml")
hprdSet <- parsePsimi25Interaction(hprdxml, HPRD.PSIMI25)
hprdInteractors <- interactors(hprdSet)
availableXrefs(hprdSet)
xref(hprdInteractors[[1]])
availableXrefs(hprdInteractors[[1]])
Run the code above in your browser using DataCamp Workspace