inst/testData/testData_preprocessQuantile.R

library(minfiData)
library(digest)

GRset.quantile <- preprocessQuantile(MsetEx)
digest_preprocessQuantile <- list(M = minfi:::.digestMatrix(getM(GRset.quantile)),
                                  CN = minfi:::.digestMatrix(getCN(GRset.quantile)))
save(digest_preprocessQuantile, file = "../unitTests/digest_preprocessQuantile.rda")

sessionInfo()
rm(list = ls())

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

library(DelayedArray)

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

GRset.quantile <- preprocessQuantile(MsetEx)
digest_preprocessQuantile <- list(M = minfi:::.digestMatrix(getM(GRset.quantile)),
                                  CN = minfi:::.digestMatrix(getCN(GRset.quantile)))
save(digest_preprocessQuantile, file = "../unitTests/digest_preprocessQuantile.DelayedArray.rda")

sessionInfo()
rm(list = ls())

Try the minfi package in your browser

Any scripts or data that you put into this service are public.

minfi documentation built on Nov. 8, 2020, 4:53 p.m.