R/trim.dat.R

trim.dat <- function(dat) {
    tmp <- strsplit(colnames(dat), "\\.")
    tr <- NULL
    for (i in 1:length(tmp)) {
        tr <- c(tr, tmp[[i]][1] != "X")
    }
    tr
}
yufree/xMSanalyzer documentation built on May 4, 2019, 6:35 p.m.