llowess.line <- function (x, y, smoothing.param = 2/3, ...)
{
tmp <- na.omit(cbind(x, y))
llines(stats::lowess(tmp[, 1], tmp[, 2], f = smoothing.param), ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.