Commit df044c38 authored by Antoine Lucas's avatar Antoine Lucas
Browse files

change rounding functions for tests

parent 5fccf32a
......@@ -40,8 +40,9 @@ test <- function(FUN, x, xlabs, out = "str", unary = FALSE)
## ## now, for some functions also compute the corresponding numeric values
## d <- if(unary) try(FUN(as.numeric(x[[j]])), silent = TRUE) else
## try(FUN(as.numeric(x[[i]]),as.numeric(x[[j]])), silent = TRUE)
if(length(e) > 0 && is.double(e[1]) ) {
e[1] = format(e)
if(length(e) > 0 && is.double(e[1]) && is.finite(e[1]) ) {
e = signif(e[1],digits=7)
e = format(e,digits=7)
}
res[i,j] <- sortie(e)[1]
}
......
This diff is collapsed.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment