bottom <- function(x) { mean(x) } single <- function(x) { x + bottom(x) } double <- function(x) { bottom(x) + single(x) } self <- function(x) { if (!is.null(x)) { self(NULL) } else { x } }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.