R/rc.check.cytoband.R

rc.check.cytoband=function(cyto.band){
	if(! all(c('Chr','Start','End') %in% colnames(cyto.band))){
		stop('Chromosome and location must be provided in input cyto.info\n')
	}
	if(! any(c('Stain','BandColor') %in% colnames(cyto.band))){
		stop('Either Stain or BandColor must be provided in input cyto.info\n')
	}
	return(invisible())
}

Try the NetWeaver package in your browser

Any scripts or data that you put into this service are public.

NetWeaver documentation built on May 2, 2019, 11:26 a.m.