## Not run:
# ### Integrate lncRNAs of competitive regulation into KEGG pathway graphs ###
# LncGenePairs<-GetExampleData(exampleData="LncGenePairs")
# g2<-GetExampleData(exampleData="g2")
# interUMGraph<-getInteGraphList(g2,LncGenePairs)
# #interUMGraph<-getInteUMGraph(LncGenePairs)
# ### get user-interested lncRNAs and genes sets.
# #geneLnc<-GetExampleData(exampleData="geneLnc")
# # get locate subpathways.
# #sub<-getLocSubGraphLnc(geneLnc,interUMGraph,type="gene_lncRNA",n=1,s=8)
# #SubcodeLncResult<-identifyLncGraphW(geneLnc,sub,type="gene_lncRNA",bet=1)
# #resultT<-printGraphW(SubcodeLncResult,detail=TRUE)
#
# ## End(Not run)
Run the code above in your browser using DataLab