> fs <- read.flowSet (path=lo_gate_dev, transformation=FALSE)
> mod <- flowFPModel (fs, parameters=c(2,5))
> fp <- flowFP (fs, mod)
> plot (fp, type=qc)
Algorithm 1: (Code Fragment 1).