inst/testData/testData_preprocessSWAN.R

library(minfiData)
library(digest)

set.seed(456)
Mset.swan <- preprocessSWAN(RGsetEx)
digest_preprocessSWAN <- list(Meth = minfi:::.digestMatrix(getMeth(Mset.swan)),
                                  Unmeth = minfi:::.digestMatrix(getUnmeth(Mset.swan)))
save(digest_preprocessSWAN, file = "../unitTests/digest_preprocessSWAN.rda")

sessionInfo()
rm(list = ls())

# ------------------------------------------------------------------------------
# DelayedArray tests
#

library(DelayedArray)

assays(RGsetEx) <- endoapply(assays(RGsetEx), DelayedArray)

set.seed(456)
Mset.swan <- preprocessSWAN(RGsetEx)
digest_preprocessSWAN <- list(Meth = minfi:::.digestMatrix(getMeth(Mset.swan)),
                              Unmeth = minfi:::.digestMatrix(getUnmeth(Mset.swan)))
save(digest_preprocessSWAN, file = "../unitTests/digest_preprocessSWAN.DelayedArray.rda")

sessionInfo()
rm(list = ls())
kasperdanielhansen/minfi documentation built on May 4, 2024, 12:04 p.m.