samp <- read.FCS(system.file("extdata",
"0877408774.B08", package="flowCore"))
truncateTrans <- truncateTransform(transformationId="Truncate-transformation", a=5)
dataTransform <- transform(samp,`FSC-H`=truncateTrans(`FSC-H`))
Run the code above in your browser using DataLab