https://github.com/cran/pracma
Tip revision: 12e26b7898f3fb6da81e710947bff1bfaf513f81 authored by Hans W. Borchers on 04 March 2022, 09:40:02 UTC
version 2.3.8
version 2.3.8
Tip revision: 12e26b7
eps.R
##
## e p s . R
##
eps <- function(x = 1.0) {
stopifnot(is.numeric(x))
x <- max(abs(x))
if (x < .Machine$double.xmin) {
e <- .Machine$double.xmin
} else {
e <- 2^floor(log2(x)) * .Machine$double.eps
}
e
}