R/delete.pheno.R

Defines functions delete.pheno

Documented in delete.pheno

delete.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.