## Not run:
# ### Integrate lncRNAs of competitive regulation into KEGG pathway graphs ###
# LncGenePairs<-GetExampleData(exampleData="LncGenePairs")
# inteUMGraph<-getInteUMGraph(LncGenePairs)
# ### get user-interested lncRNAs and genes sets.
# geneLnc<-GetExampleData(exampleData="geneLnc")
# # get locate subpathways.
# sub<-getLocSubGraphLnc(geneLnc,inteUMGraph,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