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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.