library("flowCore")
#########################
# Gating-ML 2.0 example #
#########################
flowEnv <- new.env()
fcsFile <- system.file("extdata/Gml2/FCSFiles",
"data1.fcs", package="gatingMLData")
fcs <- read.FCS(fcsFile,
transformation="linearize-with-PnG-scaling")
gateFile <- system.file("extdata/Gml2/Gating-MLFiles",
"gates1.xml", package="gatingMLData")
read.gatingML(gateFile, flowEnv)
ls(flowEnv)
result = filter(fcs, flowEnv$Polygon1)
summary(result)
#########################
# Gating-ML 1.5 example #
#########################
flowEnv <- new.env()
fcsFile <- system.file("extdata/List-modeDataFiles",
"fcs2_int16_13367ev_8par_GvHD.fcs", package="gatingMLData")
fcs <- read.FCS(fcsFile, transformation=FALSE)
gateFile <- system.file("extdata/Gating-MLFiles",
"02CtSRectangular.xml", package="gatingMLData")
read.gatingML(gateFile, flowEnv)
ls(flowEnv)
result <- filter(fcs, flowEnv$CtSR_03)
summary(result)
Run the code above in your browser using DataLab