## ----citation,eval=FALSE--------------------------------------------------- # toBibtex(citation("minfi")) ## ----dependencies, warning=FALSE, message=FALSE---------------------------- library(minfi) library(minfiData) ## ----RGsetEx--------------------------------------------------------------- RGsetEx ## RGsetEx: RGChannelSet, 622,399 features MsetEx <- preprocessRaw(RGsetEx) ## MsetEx: MethylSet, 485,512 features GMsetEx <- mapToGenome(MsetEx) ## GMsetEx: GenomicMethylSet, 485,512 features ## ----baseDir--------------------------------------------------------------- baseDir <- system.file("extdata", package = "minfiData") list.files(baseDir) ## ----baseDir2-------------------------------------------------------------- list.files(file.path(baseDir, "5723646052")) ## ----sheet----------------------------------------------------------------- targets <- read.metharray.sheet(baseDir) targets ## ----BasenameColumn>------------------------------------------------------- sub(baseDir, "", targets$Basename) ## ----readingTargets-------------------------------------------------------- RGset <- read.metharray.exp(targets = targets) ## ----pData----------------------------------------------------------------- RGset pd <- pData(RGset) pd[,1:4] ## ----read2----------------------------------------------------------------- RGset2 <- read.metharray.exp(file.path(baseDir, "5723646052")) RGset3 <- read.metharray.exp(baseDir, recursive = TRUE) ## ----sampleSheet2---------------------------------------------------------- targets2 <- read.csv(file.path(baseDir, "SampleSheet.csv"), stringsAsFactors = FALSE, skip = 7) targets2 ## ----Basename-------------------------------------------------------------- targets2$Basename <- file.path(baseDir, targets2$Sentrix_ID, paste0(targets2$Sentrix_ID, targets2$Sentrix_Position)) ## ----annotation------------------------------------------------------------ annotation(RGsetEx) ## ----sessionInfo, results='asis', echo=FALSE------------------------------- toLatex(sessionInfo())