## Not run:
#
# ### Integrate lncRNAs of competitive regulation into KEGG pathway graphs ###
# LncGenePairs<-GetExampleData(exampleData="LncGenePairs")
# interUMGraph<-getInteUMGraph(LncGenePairs)
# ### get user-interested lncRNAs and genes sets.
# ##geneLnc<-c(getBackground(type="gene")[1:3000],unique(LncGenePairs[1,]))
# geneLnc<-GetExampleData(exampleData="geneLnc")
# # get locate subpathways.
# sub<-getLocSubGraphLnc(geneLnc,interUMGraph,type="gene_lncRNA",n=1,s=8)
#
# ## End(Not run)
Run the code above in your browser using DataLab