wrapper <-
function(x, y, FUN,...) #internal
{
sapply(seq_along(x), FUN = function(i) FUN(x[i], y[i],...))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.