R/logbin.control.r

In logbin: Relative Risk Regression Using the Log-Binomial Model

logbin.control <- function (bound.tol = 1e-06, epsilon = 1e-08, maxit = 10000, trace = 0,
                            coeftrace = FALSE) 
{
    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,
         coeftrace = coeftrace)
}