#' predictdf.smooth.spline
#' @keywords internal
#' @noRd
predictdf.smooth.spline <- function(model, xseq, se, level) {
pred <- predict(model, xseq)
data.frame(x = xseq, y = pred$y)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.