## Not run:
# rg1 <- rectangleGate("FSC-H"=c(200,400), "SSC-H"=c(250, 400), filterId="rectangle")
# rg2 <- rectangleGate("FSC-H"=c(200,400), "SSC-H"=c(250, 400), filterId="rectangle")
# flist <- list(rg1,rg2)
# names(flist) <- sampleNames(gs[1:2])
# setGate(gs[1:2], "lymph", flist)
# recompute(gs[1:2], "lymph")
# ## End(Not run)
Run the code above in your browser using DataLab