Description Details Source Examples
kegg_annotation.RData
kegg_annotation.RData
list with annotation contains the gene - pathway information, and pathway descriptions
list with annotation contains the gene - pathway information, and pathway descriptions
downloaded using KEGGREST on Feb 11, 2015
downloaded using KEGGREST on Feb 11, 2015
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | ## Not run:
library(KEGGREST)
hsa_pathways <- keggLink("hsa", "pathway")
names(hsa_pathways) <- substring(names(hsa_pathways), 6)
hsa_pathways <- substring(hsa_pathways, 5)
kegg_annotation <- list(annotation = split(hsa_pathways, names(hsa_pathways)))
kegg_annotation$annotation <- lapply(kegg_annotation$annotation, function(x){names(x) <- NULL; x})
kegg_paths <- names(kegg_annotation$annotation)
kegg_desc <- keggList("pathway", "hsa")
names(kegg_desc) <- substring(names(kegg_desc), 6)
kegg_annotation$description <- kegg_desc[names(kegg_annotation$annotation)]
## End(Not run)
## Not run:
library(KEGGREST)
hsa_pathways <- keggLink("hsa", "pathway")
names(hsa_pathways) <- substring(names(hsa_pathways), 6)
hsa_pathways <- substring(hsa_pathways, 5)
kegg_annotation <- list(annotation = split(hsa_pathways, names(hsa_pathways)))
kegg_annotation$annotation <- lapply(kegg_annotation$annotation, function(x){names(x) <- NULL; x})
kegg_paths <- names(kegg_annotation$annotation)
kegg_desc <- keggList("pathway", "hsa")
names(kegg_desc) <- substring(names(kegg_desc), 6)
kegg_annotation$description <- kegg_desc[names(kegg_annotation$annotation)]
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.