{
##Load the Functional Annotation Chart file report for the input demo
##file 2, using data function. Then, create a DAVIDFunctionalAnnotationChart
## object using the loaded data.frame funChart2. In addition, the user can
##use the file name of the downloaded file report.
data(funChart2)
davidFunChart2<-DAVIDFunctionalAnnotationChart(funChart2)
##In Addition to the usual data.frame accessors, the user can inspect the
##main categories used in the analysis.
categories(davidFunChart2)
##Obtain the ids of the genes present in each Term, as a list of character
##vector
ids(davidFunChart2)
##Or plot a 2D tile matrix with the reported evidence (green) or not (black).
##Just to keep it simple, for the first five terms present in funChart2
##object.
plot2D(DAVIDFunctionalAnnotationChart(funChart2[1:5, ]),
color=c("FALSE"="black", "TRUE"="green"))
}
Run the code above in your browser using DataLab