# Select file:
txtFile <- "http://david.abcc.ncifcrf.gov/data/download/901234901248.txt"
txtFile <- paste(file.path(system.file('examples', package='FGNet')),
"DAVID_Yeast_raw.txt", sep="/")
# Read:
results <- format_david(txtFile, jobName="DavidAnalysis")
# To continue the workflow... (see help for further details)
getTerms(results)
incidMat <- fea2incidMat(results)
functionalNetwork(incidMat)
?FGNet_report
Run the code above in your browser using DataLab