R/counter.R

In rmngb: Miscellaneous Collection of Functions for Medical Data Analysis

Defines functions makeCounter increment decrement

Documented in decrement increment makeCounter

makeCounter <- function(start = 1) {
  i <- start
  function(f = function(x) x, ...)
    (i <<- f(i, ...))
}

increment <- function(x, step = 1)
  x + step

decrement <- function(x, step = 1)
  x - step

Try the rmngb package in your browser