## sample data
data(GvHD)
foo <- GvHD[1:5]
outDir <- file.path(tempdir(), "foo")
## now write out into files
write.flowSet(foo, outDir)
dir(outDir)
## and read back in
bar <- read.flowSet(path=outDir, phenoData="annotation.txt")
Run the code above in your browser using DataLab