# Build FlowSom result
fileName <- system.file("extdata","lymphocytes.fcs",package="FlowSOM")
ff <- read.FCS(fileName)
ff <- compensate(ff,ff@description$SPILL)
ff <- transform(ff,transformList(colnames(ff@description$SPILL),
logicleTransform()))
flowSOM.res <- FlowSOM(ff[1:1000,],scale=TRUE,colsToUse=c(9,12,14:18),
maxMeta=10)
# Map new data
print(colnames(ff[1001:2000,]))
fSOM2 <- NewData(flowSOM.res[[1]], ff[1001:2000,])
Run the code above in your browser using DataLab