loess.line <- function(x, y, span = 0.75, ...) {
lo <- stats::loess(y ~ x, span = span)
j <- order(lo$x)
lines(lo$x[j], lo$fitted[j], ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.