if (require(minfi) & require(minfiData)) {
dat <- preprocessRaw(RGsetEx)
datSwan <- SWAN(dat)
par(mfrow=c(1,2))
densityByProbeType(dat[,1], main="Raw")
densityByProbeType(datSwan[,1], main="SWAN")
}
Run the code above in your browser using DataLab