R/f1prime.R

In jeitziner/TTMap: Two-Tier Mapper: a clustering tool based on topological data analysis

# f1prime <-
# function(xprime, mprime, eprime = 1) {
    # xprime[abs(xprime - apply(cbind(xprime, mprime), 1,
    # function(x){median(x[x > 0])})) > eprime] <- NA
    # return(xprime);
# }
f1prime <-
function(xprime, mprime, eprime = 1) {
    xprime[abs(xprime - apply(mprime, 1,
    function(x){median(x[x > 0])})) > eprime] <- NA
    return(xprime);
}