## show both an RG-plot and an MA-plot of the uncorrected data and the
## corrected data next to each other.
slide <- 3 # or any other other, of course
layout(matrix(1:4, nrow=2,ncol=2, byrow=TRUE))
dyebias.rgplot(data=data.norm,
slide=slide,
iGSDBs=iGSDBs.estimated, # from dyebias.estimate.iGSDBs
main=sprintf("RG-plot, uncorrected, slide %d", slide),
output=NULL)
dyebias.rgplot(data=correction$data.corrected,
slide=slide,
iGSDBs=iGSDBs.estimated,
main=sprintf("RG-plot, corrected, slide %d", slide),
output=NULL)
dyebias.maplot(data=data.norm,
slide=slide,
iGSDBs=iGSDBs.estimated,
main=sprintf("MA-plot, uncorrected, slide %d",slide),
output=NULL)
dyebias.maplot(data=correction$data.corrected,
slide=slide,
iGSDBs=iGSDBs.estimated,
main=sprintf("MA-plot, corrected, slide %d",slide),
output=NULL)
Run the code above in your browser using DataLab