trainSets <- list(aml=train_aml, norm=train_norm)
plex <- flowFPPlex ()     # create an empty plex
for (tube in 2:7) # loop over tubes 2–7
fs <- read_tubes (tube)      # create a flowSet
for (trainSet in trainSets)  # differential modeling
mod <- flowFPModel (fs[trainSet])# training set only
fp <- flowFP (fs, mod) # create fingerprints
plex <- append (plex, fp)# add fingerprints to plex
Algorithm 3: (Code Fragment 3).