R/ttest.mz.R

ttest.mz <- function(x, y) {
    
    
    
    ttest_res = t.test(t(x), as.matrix(y), paired = T)
    ttest_res = abs(ttest_res$p.value)
    
    return(ttest_res)
}
yufree/xMSanalyzer documentation built on May 4, 2019, 6:35 p.m.