results <- function(x, mx, mn) {
rv <- data.frame(x = seq_along(x), y = x)
rv$is_maxima <- rv$x %in% mx
rv$is_minima <- rv$x %in% mn
return(rv)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.