#' Loess for a single variable
#'
#' @param x a vector.
#' @param \dots further arguments passed to \code{\link[stats]{loess}}.
#'
#' @importFrom stats loess
#' @export
loe <- function(x, ...) loess(x ~ seq_along(x), ...)$fitted
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.