R/f1prime3.R

Defines functions f1prime3

f1prime3 <-
function(xprime, mprime, eprime=1){
    xprime[abs(xprime-apply(
    cbind(xprime, mprime), 1, function(x){
    mean(x[x > 0])})) > 2 * eprime] <- NA
    return(xprime);
}

Try the TTMap package in your browser

Any scripts or data that you put into this service are public.

TTMap documentation built on Nov. 8, 2020, 7:30 p.m.