## Not run:
#
# ### Integrate miRNAs into KEGG pathway graphs ###
#
# ## 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)
# # visualize the reconstructed pathways #
# plotGraph(InteGraphList[[1]],layout=layout.random)
#
# ## get undirect KEGG metabolic pathway graphs ##
# graphList <- GetK2riData(K2riData="MetabolicGEGEUEMGraph")
# # get reconstructed pathway graph list #
# InteGraphList <- getInteGraphList(graphList, relations)
# # visualize the reconstructed pathways #
# plotGraph(InteGraphList[[1]],layout=layout.random)
# ## End(Not run)
Run the code above in your browser using DataLab