R/get.marker.idx.R

Defines functions get.marker.idx

Documented in get.marker.idx

get.marker.idx <-
function(data.obj, markers){
	
	is.char <- as.logical(is.na(suppressWarnings(as.numeric(markers[1]))))
		
	if(is.char){
		marker.loc <- match(markers, data.obj$marker.names)
		return(marker.loc)
		}
	
	if(!is.char){
		marker.loc <- match(markers, data.obj$marker.num)
		return(marker.loc)
		}
	
	
}

Try the cape package in your browser

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

cape documentation built on May 2, 2019, 3:27 a.m.