## Not run:
# ############# Get disease candidates ################
# ##Example 1: Users have chose disease name provided by system (Prostate cancer),
# ##network is set to "EHMN". The candidates and seed metabolites are default.
# Candidates1<-getCandidates(diseaseName="Prostate cancer",network="EHMN",
# seedDefault=TRUE,candidateDefault=TRUE)
# print(Candidates1[1:5])
#
#
#
# ##Example 2: The disease name is input by users. The seeds are provided by users.
# ##The network is set to "KEGG".The candidates are provided by users.
# path1<-paste(system.file(package="PROFANCY"),"/localdata/ProstateCandidates.txt",sep="")
# candidateExample<-read.table(path1)
# candidateExample<-candidateExample[[1]]
# path2<-paste(system.file(package="PROFANCY"),"/localdata/ProstateSeeds.txt",sep="")
# seedExample<-read.table(path2)
# seedExample<-seedExample[[1]]
# Candidates2<-getCandidates(diseaseName="Prostate cancer",network="KEGG",seed=seedExample,
# seedDefault=FALSE,candidates=candidateExample,candidateDefault=FALSE)
# print(Candidates2[1:5])
#
#
# ## End(Not run)
Run the code above in your browser using DataLab