## Load the SourceSetObj obtained from the source set analysis of ALL dataset
# see vignette for more details
print(load(file=system.file("extdata","ALLsourceresult.RData",package = "SourceSet")))
class(results.all)
## NB: Remember to launch cytoscape before running the following commands
# Create two collections of pathways to visualize the results
graph.signaling<-names(results.all)[grep("signaling",names(results.all))]
graph.other<-setdiff(names(results.all),graph.signaling)
## Signaling collection
if(interactive()){
cytoID.signaling<-sourceCytoscape(results.all,
name.graphs = graph.signaling, collection.name ="SignalingPathway")
}
## Other collection
if(interactive()){
cytoID.other<-sourceCytoscape(results.all,
name.graphs = graph.other, collection.name ="OtherPathway")
}
Run the code above in your browser using DataLab