#' geom_smooth.spline
#' @keywords internal
#' @noRd
geom_smooth.spline <- function(formula,data,df = 5,...) {
M <- model.frame(formula, data)
smooth.spline(x = M[,2], y = M[,1], df = df)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.