R/filter.absent.R

In BowenNCSU/xMSanalyzer: xMSanalyzer: R package for data analysis, comparison, and annotation of metabolomics data.

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
}