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")
cdA <- setExperiment(designDir=designDir)
cdA <- readSample(files[1], cdA)
cdB <- setExperiment(designDir=designDir)
cdB <- readSample(files[2], cdB)
cdMerged <- mergeSamples(list(cdA, cdB))
Run the code above in your browser using DataLab