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

This page was generated on 2022-03-18 11:07:15 -0400 (Fri, 18 Mar 2022).

HostnameOSArch (*)R versionInstalled pkgs
nebbiolo1Linux (Ubuntu 20.04.4 LTS)x86_64R Under development (unstable) (2022-02-17 r81757) -- "Unsuffered Consequences" 4334
riesling1Windows Server 2019 Standardx64R Under development (unstable) (2021-11-21 r81221) -- "Unsuffered Consequences" 4097
palomino3Windows Server 2022 Datacenterx64R Under development (unstable) (2022-02-17 r81757 ucrt) -- "Unsuffered Consequences" 4083
merida1macOS 10.14.6 Mojavex86_64R Under development (unstable) (2022-03-02 r81842) -- "Unsuffered Consequences" 4134
Click on any hostname to see more info about the system (e.g. compilers)      (*) as reported by 'uname -p', except on Windows and Mac OS X

BUILD results for copynumber on riesling1


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

raw results

Package 397/2090HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
copynumber 1.35.0  (landing page)
Gro Nilsen
Snapshot Date: 2022-03-17 13:55:23 -0400 (Thu, 17 Mar 2022)
git_url: https://git.bioconductor.org/packages/copynumber
git_branch: master
git_last_commit: 45bfbec
git_last_commit_date: 2021-10-26 12:07:45 -0400 (Tue, 26 Oct 2021)
nebbiolo1Linux (Ubuntu 20.04.4 LTS) / x86_64  OK    OK    OK  UNNEEDED, same version is already published
riesling1Windows Server 2019 Standard / x64  OK    ERROR  skippedskipped
palomino3Windows Server 2022 Datacenter / x64  OK    ERROR  skippedskipped
merida1macOS 10.14.6 Mojave / x86_64  OK    OK    OK    OK  UNNEEDED, same version is already published

Summary

Package: copynumber
Version: 1.35.0
Command: chmod a+r copynumber -R && D:\biocbuild\bbs-3.15-bioc\R\bin\R.exe CMD build --keep-empty-dirs --no-resave-data copynumber
StartedAt: 2022-03-17 16:39:24 -0400 (Thu, 17 Mar 2022)
EndedAt: 2022-03-17 16:39:57 -0400 (Thu, 17 Mar 2022)
EllapsedTime: 32.4 seconds
RetCode: 1
Status:   ERROR  
PackageFile: None
PackageFileSize: NA

Command output

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


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

Attaching package: 'BiocGenerics'

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

    IQR, mad, sd, var, xtabs

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

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

Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in switch(cyto.stain[band], gneg = "white", gpos100 = "black", gpos75 = "gray25",  :
  EXPR is a "factor", treated as integer.
 Consider using 'switch(as.character( * ), ...)' instead.
Warning in system(paste(shQuote(texi2dvi), if (quiet) "--quiet" else "",  :
  running command '"C:\PROGRA~1\MiKTeX\miktex\bin\x64\texify.exe" --quiet --pdf "copynumber.tex" --max-iterations=20 -I "D:/biocbuild/bbs-3.15-bioc/R/share/texmf/tex/latex" -I "D:/biocbuild/bbs-3.15-bioc/R/share/texmf/bibtex/bst"' had status 1
Error: processing vignette 'copynumber.rnw' failed with diagnostics:
running 'texi2dvi' on 'copynumber.tex' failed

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

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

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

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

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

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

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

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

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

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

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

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

Error: Vignette re-building failed.
Execution halted