## Map tracks according to speed, mean turning angle, straightness, and asphericity
## using multidimensional scaling, and store output.
cells <- c(TCells,Neutrophils)
real.celltype <- rep(c("T","N"),c(length(TCells),length(Neutrophils)))
## Prefix each track ID with its cell class to evaluate the clustering visually
names(cells) <- paste0(real.celltype,seq_along(cells))
map <- trackFeatureMap( cells, c(speed,meanTurningAngle,straightness, asphericity),
method = "MDS", return.mapping = TRUE )
Run the code above in your browser using DataLab