R/addreg.control.r

In mdonoghoe/addreg: Additive Regression for Discrete Data

addreg.control <- function (bound.tol = 1e-06, epsilon = 1e-10, maxit = 10000, trace = 0) 
{
  if (!is.numeric(bound.tol) || bound.tol <= 0)
    stop("value of 'bound.tol' must be > 0")
  if (!is.numeric(epsilon) || epsilon <= 0) 
    stop("value of 'epsilon' must be > 0")
  if (epsilon >= bound.tol)
    warning("'epsilon' should be smaller than 'bound.tol'", call. = FALSE)
  if (!is.numeric(maxit) || maxit <= 0) 
    stop("maximum number of iterations must be > 0")
  list(bound.tol = bound.tol, epsilon = epsilon, maxit = maxit, trace = trace)
}