## ----style, eval=TRUE, echo=FALSE, results="asis"---------------------------------------
BiocStyle::latex()

## ----shinyMethylData, eval=FALSE--------------------------------------------------------
#  library(shinyMethyl)
#  library(shinyMethylData)
#  runShinyMethyl(summary.tcga.raw, summary.tcga.norm)

## ----minfidata,eval=TRUE,warning=FALSE,message=FALSE------------------------------------
library(minfiData)

## ----2stepapproach,eval=TRUE,message=FALSE,warning=FALSE--------------------------------
library(shinyMethyl)
summary <- shinySummarize(RGsetEx) 

## ----launching,eval=FALSE---------------------------------------------------------------
#  runShinyMethyl(summary)

## ----loadlibraries, eval=TRUE, results="hide",warning=FALSE,message=FALSE---------------
library(minfiData)
library(minfi)

## ----basedir,eval=FALSE-----------------------------------------------------------------
#  baseDir <- system.file("extdata", package = "minfiData")
#  # baseDir <- "/home/yourDirectoryPath"

## ----experimentsheet,eval=FALSE---------------------------------------------------------
#  targets <- read.450k.sheet(baseDir)
#  head(targets)

## ----rgsetconstruction,eval=FALSE-------------------------------------------------------
#  RGSet <- read.450k.exp(base = baseDir, targets = targets)

## ----phenotype, eval=FALSE--------------------------------------------------------------
#  pd <- pData(RGSet)
#  head(pd)

## ----summarize, eval=FALSE--------------------------------------------------------------
#  myShinyMethylSet <- shinySummarize(RGSet)

## ----sessionLaunching, eval=FALSE-------------------------------------------------------
#  runShinyMethyl(myShinyMethylSet)

## ----normalize, eval=FALSE--------------------------------------------------------------
#  GRSet.norm <- preprocessQuantile(RGSet)

## ----summarizeNorm,eval=FALSE-----------------------------------------------------------
#  summary   <- shinySummarize(RGSset)
#  summary.norm <- shinySummarize(GRSet.norm)

## ----runshiny,eval=FALSE----------------------------------------------------------------
#  runShinyMethyl(summary, summary.norm)

## ----eval=TRUE,warning=FALSE,message=FALSE----------------------------------------------
library(shinyMethyl)
library(shinyMethylData)
slotNames(summary.tcga.raw)

## ----pheno,eval=TRUE--------------------------------------------------------------------
head(summary.tcga.raw@phenotype)

## ----sessionInfo, results="asis", echo=FALSE, eval=TRUE---------------------------------
toLatex(sessionInfo())