### Running the modules step by step
# Directory where your data is located
data.dir <- "~/RnBeads/data/Ziller2011_PLoSGen_450K"
idat.dir <- file.path(data.dir, "idat")
sample.annotation <- file.path(data.dir, "sample_annotation.csv")
# Directory where the output should be written to
analysis.dir <- "~/RnBeads/analysis"
# Directory where the report files should be written to
report.dir <- file.path(analysis.dir, "reports_details")
rnb.initialize.reports(report.dir)
# Set some analysis options
rnb.options(filtering.sex.chromosomes.removal = TRUE, identifiers.column = "Sample_ID")
## Restrict logging to the console only
logger.start(fname = NA)
## Data import
data.source <- c(idat.dir, sample.annotation)
result <- rnb.run.import(data.source = data.source, data.type = "idat.dir", dir.reports = report.dir)
rnb.set <- result$rnb.set
## Quality Control
rnb.run.qc(rnb.set, report.dir)
## Preprocessing
rnb.set <- rnb.run.preprocessing(rnb.set, dir.reports=report.dir)$rnb.set
## Data export
rnb.options(export.to.csv = TRUE)
rnb.run.tnt(rnb.set, report.dir)
## Exploratory analysis
rnb.run.exploratory(rnb.set, report.dir)
## Differential methylation
rnb.run.differential(rnb.set, report.dir)
Run the code above in your browser using DataLab