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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.