Nothing
"peaks" <-
function(x,span=3) {
z <- embed(x, span)
s <- span %/% 2
result <- max.col(z) == 1 + s
c(rep(FALSE,s), result, rep(FALSE,s))
}
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.