library(openCyto)
library(parallel)

fr is a flowFrame

testfilter <- quadGate.tmix(fr, c("Pacific Blue-A", "PE-A"), K=2, usePrior="no", prior=list(), plot = T)
## The prior specification has no effect when usePrior=no
## Using the parallel (multicore) version of flowClust with 16 cores

## Rule of identifying outliers: 85% quantile

a nice quadGate based on tmixure modeling results

xyplot(`Pacific Blue-A` ~ `PE-A`, fr, filter=testfilter, smooth=FALSE, xbin=32, stats = TRUE)