Here we are illustrating using the FlowSorted.Blood.450k object, which is
distributed in the minfi::RGChannelSet.
library(sesame)
library(FlowSorted.Blood.450k)
source("https://github.com/zwdzwd/sesamize/raw/main/sesamize.R")
grSet <- sesamize(FlowSorted.Blood.450k[,1:4])
grSet