samp <- read.FCS(system.file("extdata",
"0877408774.B08", package="flowCore"))
scaleTrans <- scaleTransform(transformationId="Truncate-transformation", a=1, b=10^4)
dataTransform <- transform(samp, transformList('FSC-H', scaleTrans))
Run the code above in your browser using DataLab