load(system.file("data", "zebrafishPromoters.RData", package="seqPattern"))
# dinucleotide patterns
plotPatternOccurrenceAverage(regionsSeq = zebrafishPromoters, patterns = c("AT",
"TA", "CG", "GC"), flankUp = 400, flankDown = 600, smoothingWindow =
3, color = c("gold", "darkred", "forestgreen", "navy"))
# motif consensus sequence
plotPatternOccurrenceAverage(regionsSeq = zebrafishPromoters, patterns =
"TATAWAWR", flankUp = 400, flankDown = 600, smoothingWindow = 3,
color = "gray")
Run the code above in your browser using DataLab