powered by
plotMotifOverMotif(motif, backgroundMotif, bgNoise=NA, font="Helvetica-Bold", textgp=gpar())
pcm
pfm
pcms <- readPCM(file.path(find.package("motifStack"), "extdata"),"pcm$") len <- sapply(pcms, function(.ele) ncol(.ele$mat)) pcms <- pcms[len==7] plotMotifOverMotif(pcms[[1]], pcms[[2]], bgNoise=0.05)
Run the code above in your browser using DataLab