##############################################################################
##############################################################################
###
### Running command:
###
###   chmod a+r copynumber -R && F:\biocbuild\bbs-3.17-bioc\R\bin\R.exe CMD build --keep-empty-dirs --no-resave-data copynumber
###
##############################################################################
##############################################################################


* checking for file 'copynumber/DESCRIPTION' ... OK
* preparing 'copynumber':
* checking DESCRIPTION meta-information ... OK
* installing the package to build vignettes
* creating vignettes ... ERROR
--- re-building 'copynumber.rnw' using Sweave
Loading required package: BiocGenerics

Attaching package: 'BiocGenerics'

The following objects are masked from 'package:stats':

    IQR, mad, sd, var, xtabs

The following objects are masked from 'package:base':

    Filter, Find, Map, Position, Reduce, anyDuplicated, aperm, append,
    as.data.frame, basename, cbind, colnames, dirname, do.call,
    duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
    lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
    pmin.int, rank, rbind, rownames, sapply, setdiff, sort, table,
    tapply, union, unique, unsplit, which.max, which.min

Warning: Package 'copynumber' is deprecated and will be removed from
  Bioconductor version 3.18
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
texify: major issue: User/administrator updates are out-of-sync.
Warning in system(paste(shQuote(texi2dvi), if (quiet) "--quiet" else "",  :
  running command '"C:\PROGRA~1\MiKTeX\miktex\bin\x64\texify.exe" --quiet --pdf "copynumber.tex" --max-iterations=20 -I "F:/biocbuild/bbs-3.17-bioc/R/share/texmf/tex/latex" -I "F:/biocbuild/bbs-3.17-bioc/R/share/texmf/bibtex/bst"' had status 1
Error: processing vignette 'copynumber.rnw' failed with diagnostics:
running 'texi2dvi' on 'copynumber.tex' failed

LaTeX errors:
ttes/copynumber.tex:49: LaTeX Error: \verb ended by end of line.

See the LaTeX manual or LaTeX Companion for explanation.
Type  H <return>  for immediate help.
 ...                                              
ttes/copynumber.tex:60: LaTeX Error: \verb ended by end of line.

See the LaTeX manual or LaTeX Companion for explanation.
Type  H <return>  for immediate help.
 ...                                              
ttes/copynumber.tex:84: LaTeX Error: \verb ended by end of line.

See the LaTeX manual or LaTeX Companion for explanation.
Type  H <return>  for immediate help.
 ...                                              
ttes/copynumber.tex:111: LaTeX Error: \verb ended by end of line.

See the LaTeX manual or LaTeX Companion for explanation.
Type  H <return>  for immediate help.
 ...                                              
ttes/copynumber.tex:136: LaTeX Error: \verb ended by end of line.

See the LaTeX manual or LaTeX Companion for explanation.
Type  H <return>  for immediate help.
 ...                                              
ttes/copynumber.tex:158: LaTeX Error: \verb ended by end of line.

See the LaTeX manual or LaTeX Companion for explanation.
Type  H <return>  for immediate help.
 ...                                              
ttes/copynumber.tex:326: LaTeX Error: \verb ended by end of line.

See the LaTeX manual or LaTeX Companion for explanation.
Type  H <return>  for immediate help.
 ...                                              
ttes/copynumber.tex:337: LaTeX Error: \verb ended by end of line.

See the LaTeX manual or LaTeX Companion for explanation.
Type  H <return>  for immediate help.
 ...                                              
ttes/copynumber.tex:445: LaTeX Error: \verb ended by end of line.

See the LaTeX manual or LaTeX Companion for explanation.
Type  H <return>  for immediate help.
 ...                                              

--- failed re-building 'copynumber.rnw'

SUMMARY: processing the following file failed:
  'copynumber.rnw'

Error: Vignette re-building failed.
Execution halted