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

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