R/dy.R

Defines functions dy dy.smooth.spline dy.nls

#' @export
dy <- function(x) UseMethod("dy")

#' @export
dy.smooth.spline <- function(x) {
    dy <- stats::predict(x, deriv = 1)
    dy$y
}

#' @export
dy.nls <- function(x) {
    stats::predict(x, deriv = 1)
}
npjc/growr documentation built on Nov. 9, 2019, 7:29 a.m.