##Read in some raw data
filesDir <- file.path(system.file("extdata", package="Chicago"), "unitTestData")
file <- file.path(filesDir, dir(filesDir))[1]
print(file) ##we will read in this file
designDir <- file.path(system.file("extdata", package="Chicago"), "unitTestDesign")
##Add a setting specific to the unit test data! Do not use in practice!
if(!interactive()) {
settings <- list(brownianNoise.samples=1)
} else {
settings <- NULL
}
cd <- setExperiment(designDir=designDir, settings=settings)
cd <- readAndMerge(file, cd)
Run the code above in your browser using DataLab