## Not run:
# if(require("PWMEnrich.Dmelanogaster.background")){
# data(MotifDb.Dmel.PFM)
#
# # make empirical background - here we use only 100 sequences for illustrative purposes
# if(require("BSgenome.Dmelanogaster.UCSC.dm3"))
# bg.p = makePWMEmpiricalBackground(Dmelanogaster$upstream2000[1:100], MotifDb.Dmel.PFM)
#
# # use the empirical background to pick a threshold and make cutoff background
# makePWMPvalCutoffBackground(bg.p, 0.001)
# }
# ## End(Not run)
Run the code above in your browser using DataLab