Displaying 1 result from an estimated 1 matches for "1e62".
Did you mean:
1,62
2009 May 23
2
as.numeric(levels(factor(x))) may be a decreasing sequence
...ut SSE) and also under Windows
with an older version of R.
for (i in 1:100000) {
x <- 10^(floor(runif(1, 61, 63)) + runif(1)/2)
x <- as.numeric(sprintf("%.14g", x))
eps <- 2^(floor(log2(x)) - 52)
k <- round(x * c(5e-16, 1e-15) / eps)
if (x > 1e62) { k <- rev( - k) }
y <- x + k[1]:k[2] * eps
ind <- which(diff(as.numeric(as.character(y))) < 0)
for (j in ind) {
u1 <- y[c(j, j+1)]
u2 <- factor(u1)
print(levels(u2))
print(diff(as.numeric(levels(u2))))
aux <-...