search for: lfoating

...nce here, say if (by > 0) while (from + n * (1 - eps) * by > to) n <- n - 1 else while (from + n * (1 - eps) * by < to) n <- n - 1 although I suspect eps is actually rather too small for safety (I would suggest 10 x machine precision to allow for a number of lfoating point operations). However, I think there is a much simpler approach: n <- as.integer(n + 0.1) # make sure n is not too small tol <- abs(to - from) * 10 * .Machine$double.eps if(by > 0) while(from + n*by > to + tol) n <- n - 1 else while(from + n*by <...