if (require(minfi) & require(minfiData)) {
set.seed(100)
datSwan1 <- SWAN(RGsetEx)
dat <- preprocessRaw(RGsetEx)
set.seed(100)
datSwan2 <- SWAN(dat)
head(getMeth(datSwan2)) == head(getMeth(datSwan1))
}
Run the code above in your browser using DataLab