filesDir <- file.path(system.file("extdata", package="Chicago"), "unitTestData")
files <- file.path(filesDir, dir(filesDir))
print(files) ##we will read in and merge these files
designDir <- file.path(system.file("extdata", package="Chicago"), "unitTestDesign")
cd <- setExperiment(designDir=designDir)
cd <- readAndMerge(files, cd)
Run the code above in your browser using DataLab