unused
if(require("PWMEnrich.Dmelanogaster.background")) ### #
load the pre-compiled lognormal background
data(PWMLogn.dm3.MotifDb.Dmel) # scan two sequences for motif enrichment sequences =
list(DNAString("GAAGTATCAAGTGACCAGTAAGTCCCAGATGA"),
DNAString("AGGTAGATAGAACAGTAGGCAATGAAGCCGATG"))
res = motifEnrichment(sequences,
PWMLogn.dm3.MotifDb.Dmel)
# produce a report for all sequences taken together r =
groupReport(res)
# plot the top 10 most enriched motifs plot(r[1:10])