.Machine$double.xmax
[1] 1.797693e+308
.Machine$double.xmin
[1] 2.225074e-308
1/292201338
[1] 3.422298e-09
.Machine$double.xmin
[1] 2.225074e-308
.Machine$double.xmin
[1] 2.225074e-308
.Machine$double.xmin
[1] 2.225074e-308
.Machine$double.xmin
[1] 2.225074e-308
.Machine$double.xmin
[1] 2.225074e-308
0.5*.Machine$double.xmin
[1] 1.112537e-308
0.0001*.Machine$double.xmin
[1] 2.225074e-312
0.5*.Machine$double.xmin
[1] 1.112537e-308
\[ (-1)^s 2^{c-127} (1+f) \]
library(pracma)
c(.Machine$double.xmin,eps(1))
[1] 2.225074e-308 2.220446e-16
library(pracma)
x <- .Machine$double.xmin
c(eps(0),x)
[1] 2.225074e-308 2.225074e-308
x <- .Machine$double.xmin
c(eps(0),x,eps(x))
[1] 2.225074e-308 2.225074e-308 4.940656e-324
.Machine$double.xmax
[1] 1.797693e+308
x <- .Machine$double.xmax
c(x,eps(x))
[1] 1.797693e+308 Inf
.Machine$double.xmax
[1] 1.797693e+308
.Machine$double.xmax
[1] 1.797693e+308
as.integer(2^31 - 1)
[1] 2147483647
as.integer(2^31)
[1] NA
(x <- .Machine$double.xmax)
[1] 1.797693e+308
c(x + 1, 2*x, x + eps(x))
[1] 1.797693e+308 Inf Inf