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.default = groupReport(res)
# produce a report where the last column takes top 1\% motifs
r = groupReport(res, top=0.01)
# view the results
r
# plot the top 10 most enriched motifs
plot(r[1:10])
}
Run the code above in your browser using DataLab