R/Globals.R

In armbrustlab/flowPhyto: Methods for Continuous Flow Cytometry

.rainbow.cols <- colorRampPalette(c("blue4","royalblue4","deepskyblue3", "seagreen3", "yellow", "orangered2","darkred"))

REPO.PATH <- '/misc/seaflow'

## CMOP ONLY
.EVT.HEADER.V1 <- c("time","pulse_width","D1","D2",
                     "FSCbig","CHLsmall",
                     "FSCperp","PE",
                     "FSCsmall","CHLbig")

## TARA ONWARD
.EVT.HEADER.V2 <- c("time","pulse_width","D1","D2",
                     "FSCsmall",
                     "FSCperp","FSCbig",
                     "PE",
                     "CHLsmall","CHLbig")



## 2010.10.20 - lowercase + underscore for db compatbility and easy adding
CHANNEL.CLMNS <- c("fsc_small","fsc_perp","fsc_big","pe","chl_small","chl_big")
.EVT.HEADER.V3 <- c("time","pulse_width","D1","D2", CHANNEL.CLMNS)                     

CHANNEL.CLMNS.SM <- CHANNEL.CLMNS[grep('big',CHANNEL.CLMNS, invert=TRUE)]
                     
EVT.HEADER <- .EVT.HEADER.V3