###################################################
### chunk number 1: loadlibs
###################################################
#line 122 "vignettes/RpsiXML/inst/doc/RpsiXML.Rnw"
library(RpsiXML)


###################################################
### chunk number 2: sampleFiles
###################################################
#line 126 "vignettes/RpsiXML/inst/doc/RpsiXML.Rnw"
xmlDir <- system.file("/extdata/psi25files",package="RpsiXML")
gridxml <- file.path(xmlDir, "biogrid_200804_test.xml")


###################################################
### chunk number 3: intactInteractionEX
###################################################
#line 183 "vignettes/RpsiXML/inst/doc/RpsiXML.Rnw"
intactxml <- file.path(xmlDir, "intact_2008_test.xml")
intactComplexxml <- file.path(xmlDir,"intact_complexSample.xml")


###################################################
### chunk number 4: parseInteraction
###################################################
#line 190 "vignettes/RpsiXML/inst/doc/RpsiXML.Rnw"
intactSample <- parsePsimi25Interaction(intactxml, INTACT.PSIMI25,verbose=FALSE)
intactComplexSample <- parsePsimi25Complex(intactComplexxml, INTACT.PSIMI25,verbose=FALSE)


###################################################
### chunk number 5: interactionInfo1
###################################################
#line 216 "vignettes/RpsiXML/inst/doc/RpsiXML.Rnw"
interact <- interactions(intactSample)[1:3]
interact
organismName(intactSample)[1:3]
releaseDate(intactSample)


###################################################
### chunk number 6: interactionInfo2
###################################################
#line 224 "vignettes/RpsiXML/inst/doc/RpsiXML.Rnw"
lapply(interact, participant)[1:3]
sapply(interact, bait)[1:3]
sapply(interact, prey)[1:3]
sapply(interact, pubmedID)[1:3]


###################################################
### chunk number 7: interactionInfo1
###################################################
#line 242 "vignettes/RpsiXML/inst/doc/RpsiXML.Rnw"
comp <- complexes(intactComplexSample)[1:2]
sapply(comp, complexName)


###################################################
### chunk number 8: intactGraph
###################################################
#line 254 "vignettes/RpsiXML/inst/doc/RpsiXML.Rnw"
intactGraph <- psimi25XML2Graph(intactxml, INTACT.PSIMI25, 
                                type="interaction",verbose=FALSE)
nodes(intactGraph)
degree(intactGraph)


###################################################
### chunk number 9: intactHyperGraph
###################################################
#line 264 "vignettes/RpsiXML/inst/doc/RpsiXML.Rnw"
intactHG <- psimi25XML2Graph(intactxml, INTACT.PSIMI25, type="complex",verbose=FALSE)


###################################################
### chunk number 10: separateXML
###################################################
#line 281 "vignettes/RpsiXML/inst/doc/RpsiXML.Rnw"
graphs <- separateXMLDataByExpt(xmlFiles = intactxml, psimi25source=INTACT.PSIMI25, 
                                type="indirect", directed=TRUE, abstract=TRUE,
                                verbose=FALSE) 


###################################################
### chunk number 11: showGraph
###################################################
#line 298 "vignettes/RpsiXML/inst/doc/RpsiXML.Rnw"
graphs
abstract(graphs$`18296487`)


###################################################
### chunk number 12: abst
###################################################
#line 310 "vignettes/RpsiXML/inst/doc/RpsiXML.Rnw"
getAbstractByPMID(names(graphs))


###################################################
### chunk number 13: translate
###################################################
#line 332 "vignettes/RpsiXML/inst/doc/RpsiXML.Rnw"
graphs1 <- translateID(graphs[[1]], to="intact")
nodes(graphs1)