Back to Multiple platform build/check report for BioC 3.15
AB[C]DEFGHIJKLMNOPQRSTUVWXYZ

This page was generated on 2022-10-19 13:21:19 -0400 (Wed, 19 Oct 2022).

HostnameOSArch (*)R versionInstalled pkgs
nebbiolo1Linux (Ubuntu 20.04.5 LTS)x86_644.2.1 (2022-06-23) -- "Funny-Looking Kid" 4386
palomino3Windows Server 2022 Datacenterx644.2.1 (2022-06-23 ucrt) -- "Funny-Looking Kid" 4138
merida1macOS 10.14.6 Mojavex86_644.2.1 (2022-06-23) -- "Funny-Looking Kid" 4205
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 palomino3


To the developers/maintainers of the copynumber package:
- Please allow up to 24 hours (and sometimes 48 hours) for your latest push to git@git.bioconductor.org:packages/copynumber.git to
reflect on this report. See How and When does the builder pull? When will my changes propagate? for more information.
- Make sure to use the following settings in order to reproduce any error or warning you see on this page.

raw results

Package 408/2140HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
copynumber 1.36.0  (landing page)
Gro Nilsen
Snapshot Date: 2022-10-18 13:55:19 -0400 (Tue, 18 Oct 2022)
git_url: https://git.bioconductor.org/packages/copynumber
git_branch: RELEASE_3_15
git_last_commit: cf02657
git_last_commit_date: 2022-04-26 11:14:26 -0400 (Tue, 26 Apr 2022)
nebbiolo1Linux (Ubuntu 20.04.5 LTS) / x86_64  OK    OK    OK  UNNEEDED, same version is already published
palomino3Windows Server 2022 Datacenter / x64  OK    ERROR  skippedskipped
merida1macOS 10.14.6 Mojave / x86_64  OK    OK    OK    OK  UNNEEDED, same version is already published

Summary

Package: copynumber
Version: 1.36.0
Command: chmod a+r copynumber -R && F:\biocbuild\bbs-3.15-bioc\R\bin\R.exe CMD build --keep-empty-dirs --no-resave-data copynumber
StartedAt: 2022-10-18 17:53:26 -0400 (Tue, 18 Oct 2022)
EndedAt: 2022-10-18 17:54:13 -0400 (Tue, 18 Oct 2022)
EllapsedTime: 46.8 seconds
RetCode: 1
Status:   ERROR  
PackageFile: None
PackageFileSize: NA

Command output

##############################################################################
##############################################################################
###
### Running command:
###
###   chmod a+r copynumber -R && F:\biocbuild\bbs-3.15-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, 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.15-bioc/R/share/texmf/tex/latex" -I "F:/biocbuild/bbs-3.15-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:
ettes/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.
 ...                                              
ettes/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.
 ...                                              
ettes/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.
 ...                                              
ettes/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.
 ...                                              
ettes/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.
 ...                                              
ettes/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.
 ...                                              
ettes/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.
 ...                                              
ettes/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.
 ...                                              
ettes/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