data(ITN)
wf <- workFlow(ITN)
tl <- transformList(colnames(ITN)[3:7], asinh, transformationId="asinh")
dat <- trnasformList(ITN, tl)
bg <- backGating(dat, xy=c("FSC", "SSC"), channels="CD3")
data(BackGating)
results <- flowStats:::idFeaturesByBackgating(bg=BackGating, nDim=2,
plot.workflow=TRUE, ask=TRUE)
Run the code above in your browser using DataLab