Description Usage Arguments Value Author(s) See Also Examples
Print the results of graph annotation and identification.
1 | printGraph(ann,detail=FALSE)
|
ann |
A list. The value was returned from the function |
detail |
A logical. If true, gene lists from the function |
A data.frame. Columns include pathwayId, pathwayName, annMoleculeRatio, annBgRatio, pvalue, 'fdr', annMoleculeList, annBgMoleculeList. Detailed information is provided in identifyGraph
.
Li Feng, Chunquan Li and Xia Li
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 29 30 31 32 33 | ## Not run:
# get hsa-specificd miRNA-target interactions
expMir2Tar <- GetK2riData(K2riData="expMir2Tar")
row1 <- which(expMir2Tar[["LowTHExps"]]=="YES")
row2 <- which(expMir2Tar[["Species"]]=="hsa")
relations <- unique(expMir2Tar[intersect(row1,row2),c(2:3)])
# get direct KEGG metabolic pathway graphs
graphList <- GetK2riData(K2riData="MetabolicGEGEEMGraph")
# get reconstructed pathway graph list.
InteGraphList <- getInteGraphList(graphList, relations)
# get user-interested miRNAs and genes sets.
moleculeList <- c(getBackground(type="gene")[1:1000],
getBackground(type="miRNA")[1:2000])
# get locate subpathways.
subGraphList <- getLocSubGraph(moleculeList,InteGraphList,
type="gene_miRNA",n=1,s=10)
# annotate and identify subpathways.
ann <- identifyGraph(moleculeList,subGraphList,type="gene_miRNA")
# convert ann to a data frame.
result <- printGraph(ann,detail=TRUE)
# save the result.
write.table(head(result),"result.txt",sep="\t",col.names=TRUE,row.names=FALSE)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.