Displaying 1 result from an estimated 1 matches for "50f".
Did you mean:
50
2007 Sep 03
3
When 1+2 != 3 (PR#9895)
...0.2)
all.equal (-0.2 , 1 - 0.2 - 0.2 - 0.2 - 0.2 - 0.2 - 0.2)
isTRUE( all.equal (-0.2 , 1 - 0.2 - 0.2 - 0.2 - 0.2 - 0.2 - 0.2) )
-0.2 == 1 - 0.2 - 0.2 - 0.2 - 0.2 - 0.2 - 0.2
a= -0.2
b= 1 - 0.2 - 0.2 - 0.2 - 0.2 - 0.2 - 0.2
x<-c(a,b)
sprintf("%.15f",x)
sprintf("%.50f",x)
Unique <- function(x, digits = 8, fast = TRUE) {
if (fast) {
unique (round(x * 10^digits)) / 10^digits
} else {
x = sort(x)
for (i in 1:(length(x)-1))
if (isTRUE(all.equal(x[i],x[i+1]))) x[i] = NaN
x [ which (!is.nan(x)) ]
}}
isEqual <- function (object, x, tol =...