R/filter.absent.R

Defines functions filter.absent

filter.absent <-
function(x,pct){
	present <- T
	col <- length(x)/2
	pct.absent <- (sum(x[2*(1:col)]=="A") + sum(x[2*(1:col)]=="M"))/col
	if(pct.absent > pct){present <- F}
	present
	}
kuppal2/xMSanalyzer documentation built on Feb. 12, 2021, 12:36 a.m.