han <- function (sequence) {
smooth <- stats::filter(sequence,
c(1, 2, 1)/4)
smooth[c(1, length(sequence))] <-
sequence[c(1, length(sequence))]
smooth
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.