interpolate <-
function (x, y, mark, xtarget)
{
return(y[mark] + ((y[mark + 1] - y[mark]) * (xtarget - x[mark]))/(x[mark +
1] - x[mark]))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.