## Not run:
#
# library(flowStats)
#
# ## Loading example data, creating and applying a curv1Filter
# dat <- read.FCS(system.file("extdata","0877408774.B08",
# package="flowCore"))
# c1f <- curv1Filter(filterId="myCurv1Filter", x=list("FSC-H"), bwFac=2)
# fres <- filter(dat, c1f)
#
# ## creating and showing the summary
# summary(fres)
# s <- summary(fres)
#
# ## subsetting
# s[[1]]
# s[["peak 2"]]
#
# ##accessing details
# s$true
# s$n
# toTable(s)
# ## End(Not run)
Run the code above in your browser using DataLab