##Build a model from query genes
data("Recon2")
database <- Recon2
query <- c("218.1", "223.1") ##query gene identifiers
m <- buildSBMLFromGenes(query, database)
##extract all pathways for that model
getPathwaysForSBML(m, database)
Run the code above in your browser using DataLab