R/f1prime2.R

f1prime2 <-
function(xprime, mprime, eprime = 1) {
    xprime[abs(xprime - mean(mprime)) > 
    (2 * sd(mprime) / sqrt(ncol(mprime)))] <- NA
    return(xprime);
}
jeitziner/TTMap documentation built on May 23, 2019, 4:24 p.m.