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")
cd <- setExperiment(designDir=designDir)
cd <- readAndMerge(file, cd)
Run the code above in your browser using DataLab