nikita-barsukov

library(proto)

stat_smooth_func <- function (mapping = NULL, data = NULL, geom = "smooth", position = "identity",
                         method = "auto", formula = y ~ x, se = TRUE, n = 80, fullrange = FALSE,
                         level = 0.95, na.rm = FALSE, ...) {
  StatSmoothFunc$new(mapping = mapping, data = data, geom = geom, position = position,
                 method = method, formula = formula, se = se, n = n, fullrange = fullrange,
                 level = level, na.rm = na.rm, ...)
}