mdb <- MotifDb
if (interactive ()) {
matrices <- subset (mdb, dataSource=='UniPROBE')
egr1.matrices <- subset (mdb, geneSymbol=='Egr1')
jaspar.egr1.matrices <- subset (mdb, geneSymbol=='Egr1' &
dataSource == 'JASPAR_CORE')
# one of the mouse egr1 matrices has a geneSymbol 'Zif268', but
# has the proper entrez geneId.
all.egr1.matrices <- subset (mdb, geneId=='13653')
}
Run the code above in your browser using DataLab