xmlDir <- system.file("/extdata/psi25files",package="RpsiXML")
gridxml <- file.path(xmlDir, "biogrid_200804_test.xml")
gridSet <- parsePsimi25Interaction(gridxml, BIOGRID.PSIMI25)
interExp <- interactions(gridSet)[[1]]
bait(interExp)
prey(interExp)
Run the code above in your browser using DataCamp Workspace