###################################################
### chunk number 1: no.nonsense
###################################################
rm(list=ls())


###################################################
### chunk number 2: 
###################################################
library(gene2pathway)
gene2pathway("FBgn0035006", flyBase=TRUE, organism="dme", KEGG.package=TRUE) 
pred.comp = gene2pathway.signaltrans("387129", organism="hsa") # prediction of the signaling pathway component for Entrez gene ID 387129 for human
pred.comp


###################################################
### chunk number 3:  eval=FALSE
###################################################
## url = color.pathway.by.elements("path:hsa04020",pred.comp$elemIDs[["387129"]])


###################################################
### chunk number 4: 
###################################################
data(classificationModel_dme)     # load the bagged model
modelKEGG[[1]]$allpathways        # all employed KEGG hierarchy levels
modelKEGG[[1]]$used_domains[[10]] # Which InterPro domains are used by the first model to detect Phosphatidylinositol signaling?
modelKEGG[[2]]$W                  # How are input code vectors weighted?


###################################################
### chunk number 5: 
###################################################
toLatex(sessionInfo())