R/select.pheno.R

Defines functions select.pheno

Documented in select.pheno

select.pheno <-
function(data.obj, phenotypes){
	
	pheno <- data.obj$pheno
	pheno.col <- get.col.num(pheno, phenotypes)

	if(length(pheno.col) > 0){
		new.pheno <- pheno[,pheno.col]
		data.obj$pheno <- new.pheno
		}

	return(data.obj)
	
}

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.