### R code from vignette source 'flowCL.Rnw'

###################################################
### code chunk number 1: loadlibs
###################################################
library("flowCL")


###################################################
### code chunk number 2: Load_archive
###################################################
flowCL("Archive")


###################################################
### code chunk number 3: Date
###################################################
flowCL("Date")


###################################################
### code chunk number 4: CCR7+CD45RA+_with_visual
###################################################
Res <- flowCL("CCR7+CD45RA+")
Res$Table
tmp <- Res$'CCR7+CD45RA+'
plot(tmp[[1]], nodeAttrs=tmp[[2]], edgeAttrs=tmp[[3]], attrs=tmp[[4]])


###################################################
### code chunk number 5: CD3-CD19-CD20-CD14+
###################################################
x <-"CD3-CD19-CD20-CD14+"
Res <- flowCL(x)
Res$Cell_Label[[x]][[1]]