xmlDir <- system.file("/extdata/psi25files",package="RpsiXML")
intactComplexxml <- file.path(xmlDir,"intact_complexSample.xml")
pc1 <- buildPCHypergraph(intactComplexxml, INTACT.PSIMI25)
## print number of proteins and complexes (edges)
numNodes(pc1)
## the same as numInteractors(pc1)
numEdges(pc1)
## print proteins (nodes)
nodes(pc1)[1:3]
## print complex names
edgeLabel(pc1)[1:3]
## print complexes (not so informative with 'hyperedges')
hyperedges(pc1)[1:3]
## better with 'complexes' or 'hyperedgeNodes'
complexes(pc1)[1:3]
## get interactor detailed information
interactors(pc1)[[1]]
Run the code above in your browser using DataLab