Nothing
## fix-up tolerances for use in TF computations
fixUpTol <- function(tol, na.tol, small.tol, min.tol, f, env) {
## first missing tolerances
if(any(NA.TOL <- is.na(tol) | is.infinite(tol))) {
tol[NA.TOL] <-
switch(na.tol,
min = min(tol, na.rm = TRUE),
mean = mean(tol, na.rm = TRUE),
max = max(tol, na.rm = TRUE))
}
## second, replace tol < min.tol
if(!is.null(min.tol) && any(MIN.TOL <- tol < min.tol)) {
## min.tol must be in or on extremes of range(tol)
## originally had min(env) and max(env), but that doesn't make sense
## I think the point was to stop user supplying too low tolerances
## but this has nothing to do with the range of the environment
if(min.tol < min(tol) || min.tol > max(tol))
stop("'min.tol' must be >= min(tol) and <= max(tol)")
if(small.tol == "fraction")
frac <- f * diff(range(env))
tol[MIN.TOL] <-
switch(small.tol,
fraction = frac,
absolute = min.tol,
min = min(tol[tol >= min.tol], na.rm = TRUE),
mean = mean(tol[tol >= min.tol], na.rm = TRUE))
}
tol
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.