library(minfi)
sheet <- read.450k.sheet("../extdata", pattern = "csv$")
RGsetEx <- read.450k.exp(targets = sheet)
save(RGsetEx, file = "../../data/RGsetEx.rda", compress = "xz")
MsetEx <- preprocessRaw(RGsetEx)
save(MsetEx, file = "../../data/MsetEx.rda", compress = "xz")
