Back to Build/check report for BioC 3.17
AB[C]DEFGHIJKLMNOPQRSTUVWXYZ

This page was generated on 2023-01-02 09:00:24 -0500 (Mon, 02 Jan 2023).

HostnameOSArch (*)R versionInstalled pkgs
palomino5Windows Server 2022 Datacenterx64R Under development (unstable) (2022-12-25 r83502 ucrt) -- "Unsuffered Consequences" 4165
Click on any hostname to see more info about the system (e.g. compilers)      (*) as reported by 'uname -p', except on Windows and Mac OS X

BUILD results for copynumber on palomino5


To the developers/maintainers of the copynumber package:
Make sure to use the following settings in order to reproduce any error or warning you see on this page.

raw results

Package 404/2158HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
copynumber 1.39.0  (landing page)
Gro Nilsen
Snapshot Date: 2022-12-28 11:00:06 -0500 (Wed, 28 Dec 2022)
git_url: https://git.bioconductor.org/packages/copynumber
git_branch: master
git_last_commit: a110ada
git_last_commit_date: 2022-11-01 11:08:08 -0500 (Tue, 01 Nov 2022)
palomino5Windows Server 2022 Datacenter / x64  OK    ERROR  skippedskipped

Summary

Package: copynumber
Version: 1.39.0
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
StartedAt: 2022-12-28 17:24:02 -0500 (Wed, 28 Dec 2022)
EndedAt: 2022-12-28 17:24:29 -0500 (Wed, 28 Dec 2022)
EllapsedTime: 27.1 seconds
RetCode: 1
Status:   ERROR  
PackageFile: None
PackageFileSize: NA

Command output

##############################################################################
##############################################################################
###
### 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 in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning 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: So far, you have not checked for updates as a MiKTeX user.
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:
mber/vignettes/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.
 ...                                              
mber/vignettes/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.
 ...                                              
mber/vignettes/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.
 ...                                              
mber/vignettes/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.
 ...                                              
mber/vignettes/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.
 ...                                              
mber/vignettes/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.
 ...                                              
mber/vignettes/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.
 ...                                              
mber/vignettes/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.
 ...                                              
mber/vignettes/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