Back to Mac ARM64 build report for BioC 3.17
AB[C]DEFGHIJKLMNOPQRSTUVWXYZ

This page was generated on 2023-10-20 09:38:00 -0400 (Fri, 20 Oct 2023).

HostnameOSArch (*)R versionInstalled pkgs
kjohnson2macOS 12.6.1 Montereyarm644.3.1 (2023-06-16) -- "Beagle Scouts" 4347
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

Package 427/2230HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
copynumber 1.40.0  (landing page)
Gro Nilsen
Snapshot Date: 2023-10-15 14:00:07 -0400 (Sun, 15 Oct 2023)
git_url: https://git.bioconductor.org/packages/copynumber
git_branch: RELEASE_3_17
git_last_commit: 0c087da
git_last_commit_date: 2023-04-25 10:26:46 -0400 (Tue, 25 Apr 2023)
kjohnson2macOS 12.6.1 Monterey / arm64  OK    ERROR  skippedskipped

BUILD results for copynumber on kjohnson2


To the developers/maintainers of the copynumber package:
- Use the following Renviron settings to reproduce errors and warnings.
- If 'R CMD check' started to fail recently on the Linux builder(s) over a missing dependency, add the missing dependency to 'Suggests:' in your DESCRIPTION file. See Renviron.bioc for more information.

raw results


Summary

Package: copynumber
Version: 1.40.0
Command: /Library/Frameworks/R.framework/Resources/bin/R CMD build --keep-empty-dirs --no-resave-data copynumber
StartedAt: 2023-10-16 00:08:07 -0400 (Mon, 16 Oct 2023)
EndedAt: 2023-10-16 00:08:38 -0400 (Mon, 16 Oct 2023)
EllapsedTime: 31.9 seconds
RetCode: 1
Status:   ERROR  
PackageFile: None
PackageFileSize: NA

Command output

##############################################################################
##############################################################################
###
### Running command:
###
###   /Library/Frameworks/R.framework/Resources/bin/R CMD build --keep-empty-dirs --no-resave-data copynumber
###
##############################################################################
##############################################################################


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

Attaching package: ‘BiocGenerics’

The following objects are masked from ‘package:stats’:

    IQR, mad, sd, var, xtabs

The following objects are masked from ‘package:base’:

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

Warning: Package 'copynumber' is deprecated and will be removed from
  Bioconductor version 3.18
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Error: processing vignette 'copynumber.rnw' failed with diagnostics:
Running 'texi2dvi' on 'copynumber.tex' failed.
LaTeX errors:
! LaTeX Error: \verb ended by end of line.

See the LaTeX manual or LaTeX Companion for explanation.
Type  H <return>  for immediate help.
 ...                                              
! Emergency stop.
 ...                                              
                                                  
l.49 ... winsorize  is available for this purpose.
                                                  
!  ==> Fatal error occurred, no output PDF file produced!
--- failed re-building ‘copynumber.rnw’

SUMMARY: processing the following file failed:
  ‘copynumber.rnw’

Error: Vignette re-building failed.
Execution halted