# Read from file
fileName <- system.file("extdata","lymphocytes.fcs",package="FlowSOM")
flowSOM.res <- FlowSOM(fileName, compensate=TRUE,transform=TRUE,
scale=TRUE,colsToUse=c(9,12,14:18),maxMeta=10)
# Or read from flowFrame object
ff <- read.FCS(fileName)
ff <- compensate(ff,ff@description$SPILL)
ff <- transform(ff,transformList(colnames(ff@description$SPILL),
logicleTransform()))
flowSOM.res <- FlowSOM(ff,scale=TRUE,colsToUse=c(9,12,14:18),maxMeta=10)
# Get metaclustering per cell
flowSOM.clustering <- flowSOM.res[[2]][flowSOM.res[[1]]$map$mapping[,1]]
Run the code above in your browser using DataLab