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