R/dif.R

In xRing: Identify and Measure Tree Rings on X-Ray Micro-Density Profiles

dif <- function(x,
                lag = 1,
                differences = 1,
                ...) {
  c(
    rep(NA, lag * differences),
    diff(x, lag = lag, differences = differences, ...)
  )
}