R/fuzzyor.R

Defines functions `fuzzyor`

`fuzzyor` <- function(...) {
    other.args <- list(...)
    if (is.matrix(other.args[[1]]) | is.data.frame(other.args[[1]])) {
        return(apply(other.args[[1]], 1, max))
    }
    else {
        return(pmax(...))
    }
}

Try the QCApro package in your browser

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

QCApro documentation built on May 1, 2019, 10:09 p.m.