"hanning" <- function(y) { se <- length(y) return(c(NA, 0.25 * y[-c(1, 2)] + 0.5 * y[-c(1, se)] + 0.25 * y[-c(se - 1, se)], NA)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.