R/geom_smooth.spline.R

#' 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)
}
damonbayer/damonmbayer documentation built on June 28, 2019, 11:18 p.m.