knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(LUMP)

library(minfi)
library(minfiData)
baseDir <- system.file("extdata", package="minfiData")
targets <- read.metharray.sheet(baseDir)
RGset <- read.metharray.exp(targets = targets)
#Mset <- preprocessRaw(RGset)
Mset = preprocessQuantile(RGset)
beta = getBeta(Mset)

lump(beta, "N")


yeswzc/LUMP documentation built on June 21, 2020, 10:57 a.m.