## Not run:
# ############# Get all disease Names provided ################
# ProvidedDiseaseName<-getProvidedDiseaseName()
# print(ProvidedDiseaseName[1:5])
# write.table(ProvidedDiseaseName,"ProvidedDiseaseName.txt",quote=FALSE,row.names=FALSE,sep="\t")
#
#
#
# ## End(Not run)
Run the code above in your browser using DataLab