Nothing
monoid <- function(op) {
mappend <- function(f, g) {
h <- function(x, ret) {
r <- op(f(x, ret), g(x, ret))
return(r)
}
return(h)
}
return(mappend)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.