if (require(minfiData)){
baseDir <- system.file("extdata", package = "minfiData")
targets <- read.450k.sheet(baseDir)
targets$Sample_Plate <- substr(targets$Slide,1,7)
RGSet <- read.450k.exp(base = baseDir, targets = targets)
summarized.data <- shinySummarize(RGSet)
runShinyMethyl(summarized.data)
}
Run the code above in your browser using DataLab