R/utils.R

map_reduce_sum <- function(f, ...) Reduce("+", Map(f, ...))
map_reduce_mean <- function(f, ...) {
    f_mapped <- Map(f, ...)
    N <- length(f_mapped)

    (1 / N) * Reduce("+", f_mapped)
}
kschmaus/gammmbest documentation built on May 7, 2019, 9 p.m.