ylim <- c(-1, 1)
layout(matrix(1:2, nrow=1,ncol=2))
order <- dyebias.boxplot(data=data.norm,
iGSDBs=iGSDBs.estimated, # from e.g. dyebias.estimate.iGSDBs
order=NULL, # i.e., order by increasing slide bias
output=NULL,
main="before correction",
ylim=ylim)
order <- dyebias.boxplot(data=correction$data.corrected, # from dyebias.apply.correction
iGSDBs=iGSDBs.estimated,
order=order, # order by the original slide bias
output=NULL,
main="after correction",
ylim=ylim
)
Run the code above in your browser using DataLab