#' #' @export background2 <- function(y){ n=length(y) y1<-cumsum(y) r=(y1[2:n]+y1[1:(n-1)]) / 2 return(r) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.