## ----message = FALSE-----------------------------------------------------
library(sesame)
library(FlowSorted.Blood.450k)

## ------------------------------------------------------------------------
grSet <- sesamize(FlowSorted.Blood.450k[,1:4])
grSet