library(plateCore)
data(plateCore)
# Create a flowPlate from the sample data in plateCore
fp <- flowPlate(pbmcPlate,wellAnnotation,plateName="P1")
## Create a rectangle filter
rectGate <- rectangleGate("FSC-H"=c(300,700),"SSC-H"=c(50,400))
xyplot(`SSC-H` ~ `FSC-H` | as.factor(name),
fp[1], smooth=FALSE, filter=rectGate, displayFilter=FALSE)
Run the code above in your browser using DataLab