All the resources for creating annotations are getting bulky and need
to be put into another place. We are calling that place
AnnotationForge.
git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/AnnotationForge@66999 bc3139a8-67e5-0310-9ffc-ced21a209358
1 | 1 |
new file mode 100644 |
... | ... |
@@ -0,0 +1,52 @@ |
1 |
+\name{@ANNOBJPREFIX@PATH} |
|
2 |
+\alias{@ANNOBJPREFIX@PATH} |
|
3 |
+\alias{@ANNOBJPREFIX@PATH2ORF} |
|
4 |
+\title{Mappings between ORF identifiers and KEGG pathway identifiers} |
|
5 |
+\description{ |
|
6 |
+ KEGG (Kyoto Encyclopedia of Genes and Genomes) maintains pathway data |
|
7 |
+ for various organisms. @ANNOBJPREFIX@PATH maps ORF identifiers to the |
|
8 |
+ identifiers used by KEGG for pathways |
|
9 |
+} |
|
10 |
+\details{ |
|
11 |
+ Each KEGG pathway has a name and identifier. Pathway name for a given pathway |
|
12 |
+ identifier can be obtained using the KEGG data package that can either be |
|
13 |
+ built using AnnBuilder or downloaded from Bioconductor |
|
14 |
+ \url{http://www.bioconductor.org}. |
|
15 |
+ |
|
16 |
+ Graphic presentations of pathways are searchable at |
|
17 |
+ url http://www.genome.ad.jp/kegg/pathway.html by using pathway identifiers as |
|
18 |
+ keys. |
|
19 |
+ |
|
20 |
+ Mappings were based on data provided by: @PATHSOURCE@ |
|
21 |
+ |
|
22 |
+} |
|
23 |
+\references{ |
|
24 |
+ \url{http://www.genome.ad.jp/kegg/} |
|
25 |
+} |
|
26 |
+\examples{ |
|
27 |
+ x <- @ANNOBJPREFIX@PATH |
|
28 |
+ # Get the ORF identifiers that are mapped to a KEGG pathway ID |
|
29 |
+ mapped_genes <- mappedkeys(x) |
|
30 |
+ # Convert to a list |
|
31 |
+ xx <- as.list(x[mapped_genes]) |
|
32 |
+ if(length(xx) > 0) { |
|
33 |
+ # Get the PATH for the first five genes |
|
34 |
+ xx[1:5] |
|
35 |
+ # Get the first one |
|
36 |
+ xx[[1]] |
|
37 |
+ } |
|
38 |
+ |
|
39 |
+ # For the reverse map: |
|
40 |
+ # Convert the object to a list |
|
41 |
+ xx <- as.list(@ANNOBJPREFIX@PATH2ORF) |
|
42 |
+ # Remove pathway identifiers that do not map to any ORF id |
|
43 |
+ xx <- xx[!is.na(xx)] |
|
44 |
+ if(length(xx) > 0){ |
|
45 |
+ # The ORF identifiers for the first two elements of XX |
|
46 |
+ xx[1:2] |
|
47 |
+ # Get the first one |
|
48 |
+ xx[[1]] |
|
49 |
+ } |
|
50 |
+} |
|
51 |
+\keyword{datasets} |
|
52 |
+ |