library(GenomicRanges)
load(system.file("data", "zebrafishPromoters.RData", package="seqPattern"))
promoterWidth <- elementMetadata(zebrafishPromoters)$interquantileWidth
load(system.file("data", "TBPpwm.RData", package="seqPattern"))
motifScores <- motifScanScores(regionsSeq = zebrafishPromoters,
motifPWM = TBPpwm, seqOrder = order(promoterWidth),
asPercentage = TRUE)
dim(motifScores)
motifScores[1:10,1:10]
Run the code above in your browser using DataLab