data(cage)
data(promoters)
scores1=ScoreMatrix(target=cage,windows=promoters,strand.aware=TRUE)
data(cpgi)
scores2=ScoreMatrix(target=cpgi,windows=promoters,strand.aware=TRUE)
# create a new ScoreMatrixList
x=new("ScoreMatrixList",list(scores1,scores2))
plotMeta(mat=x,overlay=TRUE,main="my plotowski")
# plot dispersion nd smooth central tendency and variation interval bands
plotMeta(mat=x, centralTend="mean", dispersion="se", winsorize=c(0,99),
main="Dispersion as interquartile band", lwd=4,
smoothfun=function(x) stats::lowess(x, f = 1/5))
Run the code above in your browser using DataLab