{
##DAVIDGenes example:
##Load Show Gene List file report for the input demo file 1, using data
##function. Then, create a DAVIDGenes object using the loaded data.frame
##geneList1.
data(geneList1)
davidGenes1<-DAVIDGenes(geneList1)
##Now, get the genes using the ids look up parameter with the first
##six ids. If ids omitted, all the available are returned.
genes(davidGenes1, ids=head(ids(davidGenes1)))
##DAVIDFunctionalAnnotationTable example:
##Load the Functional Annotation Table file report for the input demo
##file 1, using data function. Then, create a DAVIDFunctionalAnnotationTable
##object using the loaded data.frame annotationTable1.
data(annotationTable1)
davidFunTable1<-DAVIDFunctionalAnnotationTable(annotationTable1)
##Now we can obtain the genes for the given ids, or the complete list if the
##parameter is omitted.
genes(davidFunTable1, id=c("37166_at","41703_r_at"))
##DAVIDGeneCluster example:
##Load the Gene Functional Classification Tool file report for the
##input demo list 1 file to create a DAVIDGeneCluster object.
setwd(tempdir())
fileName<-system.file("files/geneClusterReport1.tab.tar.gz",
package="RDAVIDWebService")
untar(fileName)
davidGeneCluster1<-DAVIDGeneCluster(untar(fileName, list=TRUE))
##Then, we can obtain the genes of the first cluster using davidGeneCluster1
##object. Or, using genes on DAVIDGenes class once we get the members of the
##cluster
genes(davidGeneCluster1)[[1]]
genes(members(davidGeneCluster1)[[1]])
}
Run the code above in your browser using DataLab