kegg_annotation.RData: kegg_annotation.RData

In rmflight/black_mirna_mrna_nsclc_network_enrichment: Network Analysis for Penni Black Data

Description

kegg_annotation.RData

kegg_annotation.RData

Details

list with annotation contains the gene - pathway information, and pathway descriptions

list with annotation contains the gene - pathway information, and pathway descriptions

Source

downloaded using KEGGREST on Feb 11, 2015

downloaded using KEGGREST on Feb 11, 2015

Examples

## 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)

rmflight/black_mirna_mrna_nsclc_network_enrichment documentation built on May 27, 2019, 9:30 a.m.