sampdat <- readFCS(system.file("extdata", "fas-Bcl2-plate323-04-04.A01",
package="prada"))
files <- dir(system.file("extdata", package="prada"),
pattern="[A-H][0-9][0-9]")
sampdat2 <- read.fcs(system.file("extdata", "fas-Bcl2-plate323-04-04.A01",
package="prada"))
sampdat3 <- read.fcs(files, path=system.file("extdata", package="prada"))
sampdat
exprs(sampdat[1:3,])
description(sampdat)[3:6]
class(sampdat3)
Run the code above in your browser using DataLab