library(GenomicRanges)
load(system.file("data", "zebrafishPromoters.RData", package="seqPattern"))
promoterWidth <- elementMetadata(zebrafishPromoters)$interquantileWidth
load(system.file("data", "TBPpwm.RData", package="seqPattern"))
motifOccurrence <- motifScanHits(regionsSeq = zebrafishPromoters,
motifPWM = TBPpwm, minScore = "85%",
seqOrder = order(promoterWidth))
head(motifOccurrence)
Run the code above in your browser using DataLab