## Not run:
# ############# Prioritize candidate lncRNAs ################
#
# ## Here we use six fake matrix(networks).
# data("GNetExample")
# data("GLNetExample")
# data("PNetExample")
# data("LNetExample")
# data("PGNetExample")
# data("PLNetExample")
#
# ## Get three types seeds from DiseaseInfList we provided.
# diseaseName<-"BREAST CANCER" ;
# data("DiseaseInfList")
# loci<-match(diseaseName,DiseaseInfList[["OMIMName"]]);
# pheSeedExample<-DiseaseInfList[loci,"OMIMId"];
# genSeedExample<-unlist(strsplit(as.character(DiseaseInfList[loci,"DGenes"]),";"));
# lncSeedExample<-unlist(strsplit(as.character(DiseaseInfList[loci,"DLncs"]),";"));
# PNodes<-colnames(PNetExample) ;
# GNodes<-colnames(GNetExample);
# LNodes<-colnames(LNetExample);
# pheSeedResult<-pheSeedExample;
# genSeedResult<-genSeedExample;
# lncSeedResult<-lncSeedExample;
#
# ## Get candidates.
# candidateResult<-setdiff(LNodes,lncSeedResult);
# ##Run getTopDiseaseLncRNAs
# example<-getTopDiseaseLncRNAs(pheSeed=pheSeedResult,genSeed=genSeedResult,lncSeed=lncSeedResult,
# candidates=candidateResult,showTop=30,GNet=GNetExample,PNet=PNetExample,LNet=LNetExample,
# GLNet=GLNetExample,PGNet=PGNetExample,PLNet=PLNetExample);
# head(example)
#
#
# ## End(Not run)
Run the code above in your browser using DataLab