Running 'arithmetic.r' [141s]
  Running 'backsolve.r' [1s]
  Running 'bind.r' [1s]
  Running 'c.r' [0s]
  Running 'chol.r' [1s]
  Running 'chol2inv.r' [1s]
  Running 'colSums.r' [1s]
  Running 'comparison.r' [1s]
  Running 'cond.r' [1s]
  Running 'crossprod.r' [1s]
  Running 'diag.r' [1s]
  Running 'eigen.r' [171s]
  Running 'extremes.r' [170s]
  Running 'isSymmetric.r' [1s]
  Running 'math.r' [157s]
  Running 'matmult.r' [146s]
  Running 'na.r' [1s]
  Running 'norm.r' [163s]
  Running 'print.r' [160s]
  Running 'qr.r' [0s]
  Running 'rand.r' [1s]
  Running 'rep.r' [161s]
  Running 'scale.r' [1s]
  Running 'sign.r' [0s]
  Running 'solve.r' [1s]
  Running 'sum.r' [1s]
  Running 'svd.r' [1s]
  Running 'sweep.r' [1s]
  Running 'xpose.r' [1s]
Running the tests in 'tests/arithmetic.r' failed.
Complete output:
  > suppressPackageStartupMessages(library(float))
  > set.seed(1234)
  > tol = 1e-6
  > 
  > same = function(test, truth) stopifnot(all.equal(test, truth, tol=tol))
  > 
  > x1 = matrix(stats::rnorm(30), 10)
  > x2 = matrix(stats::rnorm(30), 10)
  > x3 = matrix(1:30, 10)
  > 
  > s1 = fl(x1)
  > s2 = fl(x2)
  > 
  > 
  > 
  > ### Addition
  > test = dbl(s1 + s2)
  > truth = x1 + x2
  > same(test, truth)
  > test = s1 + x2
  > same(test, truth)
  > test = x2 + s1
  > same(test, truth)
  > 
  > test = dbl(s1 + x3)
  > truth = x1 + x3
  > same(test, truth)
  > test = dbl(x3 + s1)
  > same(test, truth)
  > 
  > test = dbl(s1 + 1L)
  > truth = x1 + 1
  > same(test, truth)
  > test = s1 + 1.0
  > same(test, truth)
  > 
  > 
  > 
  > ### Multiplication
  > test = dbl(s1 * s2)
  > truth = x1 * x2
  > same(test, truth)
  > test = s1 * x2
  > same(test, truth)
  > test = x2 * s1
  > same(test, truth)
  > 
  > test = dbl(s1 * x3)
  > truth = x1 * x3
  > same(test, truth)
  > test = dbl(x3 * s1)
  > same(test, truth)
  > 
  > test = dbl(s1 * 1L)
  > truth = x1 * 1L
  > same(test, truth)
  > test = s1 * 1.0
  > same(test, truth)
  > 
  > 
  > 
  > ### Subtraction
  > test = dbl(s1 - s2)
  > truth = x1 - x2
  > same(test, truth)
  > test = s1 - x2
  > same(test, truth)
  > 
  > truth = x2 - x1
  > test = x2 - s1
  > same(test, truth)
  > 
  > test = dbl(s1 - x3)
  > truth = x1 - x3
  > same(test, truth)
  > 
  > truth = x3 - x1
  > test = dbl(x3 - s1)
  > same(test, truth)
  > 
  > test = dbl(s1 - 1L)
  > truth = x1 - 1L
  > same(test, truth)
  > test = s1 - 1.0
  > same(test, truth)
  > 
  > 
  > 
  > ### Division
  > test = dbl(s1 / s2)
  > truth = x1 / x2
  > same(test, truth)
  > test = s1 / x2
  > same(test, truth)
  > 
  > truth = x2 / x1
  > test = x2 / s1
  > same(test, truth)
  > 
  > test = dbl(s1 / x3)
  > truth = x1 / x3
  > same(test, truth)
  > 
  > truth = x3 / x1
  > test = dbl(x3 / s1)
  > same(test, truth)
  > 
  > test = dbl(s1 / 1L)
  > truth = x1 / 1L
  > same(test, truth)
  > test = s1 / 1.0
  > same(test, truth)
  > 
  > 
  > 
  > ### Power
  > test = dbl(s1 ^ s2)
  > truth = x1 ^ x2
  > same(test, truth)
  > test = s1 ^ x2
  > same(test, truth)
  > 
  > truth = x2 ^ x1
  > test = x2 ^ s1
  > same(test, truth)
  > 
  > test = dbl(s1 ^ x3)
  > truth = x1 ^ x3
  > same(test, truth)
  > 
  > truth = x3 ^ x1
  > test = dbl(x3 ^ s1)
  > same(test, truth)
  > 
  > test = dbl(s1 ^ 1L)
  > truth = x1 ^ 1L
  > same(test, truth)
  > test = s1 ^ 1.0
  > same(test, truth)
  > 
  > proc.time()
     user  system elapsed 
     0.48    0.06    0.53 
Running the tests in 'tests/eigen.r' failed.
Complete output:
  > suppressPackageStartupMessages(library(float))
  > set.seed(1234)
  > 
  > tol = 1e-6
  > 
  > m = 10
  > n = 3
  > 
  > s = flrnorm(m, n)
  > cp_s = crossprod(s)
  > cp_d = dbl(cp_s)
  > 
  > test = eigen(cp_s, symmetric=TRUE, only.values=TRUE)
  > truth = eigen(cp_d, symmetric=TRUE, only.values=TRUE)
  > stopifnot(all.equal(dbl(test$values), truth$values, tol=tol))
  > stopifnot(identical(test$vectors, truth$vectors)) # both NULL
  > 
  > test = eigen(cp_s, symmetric=TRUE, only.values=FALSE)
  > truth = eigen(cp_d, symmetric=TRUE, only.values=FALSE)
  > stopifnot(all.equal(dbl(test$values), truth$values, tol=tol))
  > stopifnot(all.equal(abs(dbl(test$vectors)), abs(truth$vectors), tol=tol))
  > 
  > proc.time()
     user  system elapsed 
     0.46    0.06    0.51 
Running the tests in 'tests/extremes.r' failed.
Complete output:
  > suppressPackageStartupMessages(library(float))
  > set.seed(1234)
  > tol=1e-6
  > 
  > same = function(test, truth) stopifnot(all.equal(dbl(test), truth, tol=tol))
  > 
  > x1 = matrix(-4:5, 5)
  > s1 = fl(x1)
  > 
  > x2 = x1
  > x2[3, 1] = NA_integer_
  > x2[4, 2] = NA_integer_
  > s2 = fl(x2)
  > 
  > y = 1L
  > z = 1.0
  > s3 = flrunif(5)
  > 
  > 
  > ### min
  > test = min(s1)
  > truth = min(x1)
  > same(test, truth)
  > 
  > test = min(s1, s3)
  > truth = min(x1, dbl(s3))
  > same(test, truth)
  > 
  > test = min(s1, y)
  > truth = min(x1, y)
  > same(test, truth)
  > 
  > # NA
  > test = sum(s2, na.rm=FALSE)
  > truth = sum(x2, na.rm=FALSE)
  > same(test, truth)
  > 
  > test = sum(s2, na.rm=TRUE)
  > truth = sum(x2, na.rm=TRUE)
  > same(test, truth)
  > 
  > 
  > 
  > ### max
  > test = max(s1)
  > truth = max(x1)
  > same(test, truth)
  > 
  > test = max(s1, s3)
  > truth = max(x1, dbl(s3))
  > same(test, truth)
  > 
  > test = max(s1, y)
  > truth = max(x1, y)
  > same(test, truth)
  > 
  > # NA
  > test = sum(s2, na.rm=FALSE)
  > truth = sum(x2, na.rm=FALSE)
  > same(test, truth)
  > 
  > test = sum(s2, na.rm=TRUE)
  > truth = sum(x2, na.rm=TRUE)
  > same(test, truth)
  > 
  > 
  > 
  > 
  > # which
  > test = which.min(s1)
  > truth = which.min(x1)
  > same(test, truth)
  > 
  > test = which.min(s2)
  > truth = which.min(x2)
  > same(test, truth)
  > 
  > test = which.max(s1)
  > truth = which.max(x1)
  > same(test, truth)
  > 
  > test = which.max(s2)
  > truth = which.max(x2)
  > same(test, truth)
  > 
  > proc.time()
     user  system elapsed 
     0.54    0.12    0.61 
Running the tests in 'tests/math.r' failed.
Complete output:
  > suppressPackageStartupMessages(library(float))
  > set.seed(1234)
  > 
  > same = function(fun, s, x, tol=1e-6, ...) stopifnot(all.equal(dbl(fun(s, ...)), fun(x, ...), tol=tol))
  > 
  > x = stats::runif(30, 0.1, 1)
  > s = fl(x)
  > 
  > # -----------------------------------------------------------------------------
  > # logs
  > # -----------------------------------------------------------------------------
  > 
  > same(exp, s, x)
  > same(expm1, s, x)
  > same(log, s, x)
  > same(log, s, x, base=3)
  > same(log10, s, x)
  > same(log2, s, x)
  > 
  > # -----------------------------------------------------------------------------
  > # trig
  > # -----------------------------------------------------------------------------
  > 
  > same(sin, s, x)
  > same(cos, s, x)
  > same(tan, s, x)
  > same(asin, s, x)
  > same(acos, s, x)
  > same(atan, s, x)
  > 
  > # -----------------------------------------------------------------------------
  > # hyperbolic
  > # -----------------------------------------------------------------------------
  > 
  > x2 = 1:30
  > s2 = fl(x2)
  > 
  > same(sinh, s, x)
  > same(cosh, s, x)
  > same(tanh, s, x)
  > same(asinh, s, x)
  > same(acosh, s2, x2)
  > same(atanh, s, x)
  > 
  > # -----------------------------------------------------------------------------
  > # misc
  > # -----------------------------------------------------------------------------
  > 
  > same(abs, s, x)
  > same(sqrt, s, x)
  > 
  > # -----------------------------------------------------------------------------
  > # special
  > # -----------------------------------------------------------------------------
  > 
  > same(gamma, s, x)
  > same(lgamma, s, x)
  > 
  > # -----------------------------------------------------------------------------
  > # mathis
  > # -----------------------------------------------------------------------------
  > 
  > x3 = c(1, NaN, Inf, -Inf, 2, NA_real_)
  > s3 = fl(x3)
  > 
  > stopifnot(identical(is.finite(s3), is.finite(x3)))
  > stopifnot(identical(is.infinite(s3), is.infinite(x3)))
  > stopifnot(identical(is.nan(s3), is.nan(x3)))
  > 
  > # -----------------------------------------------------------------------------
  > # mathis
  > # -----------------------------------------------------------------------------
  > 
  > 
  > pis = fl(pi)
  > 
  > same(ceiling, pis, pi)
  > same(floor, pis, pi)
  > same(trunc, pis, pi)
  > 
  > same(round, pis, pi)
  > same(round, pis, pi, digits=1)
  > same(round, pis, pi, digits=2)
  > same(round, pis, pi, digits=3)
  > same(round, pis, pi, digits=-1)
  > 
  > proc.time()
     user  system elapsed 
     0.45    0.07    0.54 
Running the tests in 'tests/matmult.r' failed.
Complete output:
  > suppressPackageStartupMessages(library(float))
  > 
  > x = matrix(1:30, 10)
  > y = matrix(1:9, 3)
  > 
  > x_y = x %*% y
  > 
  > xs = fl(x)
  > ys = fl(y)
  > 
  > test = dbl(xs %*% ys)
  > stopifnot(all.equal(test, x_y))
  > 
  > test = dbl(xs %*% y)
  > stopifnot(all.equal(test, x_y))
  > 
  > test = dbl(x %*% ys)
  > stopifnot(all.equal(test, x_y))
  > 
  > 
  > 
  > storage.mode(x) = "double"
  > storage.mode(y) = "double"
  > 
  > test = xs %*% y
  > stopifnot(all.equal(test, x_y))
  > 
  > test = x %*% ys
  > stopifnot(all.equal(test, x_y))
  > 
  > proc.time()
     user  system elapsed 
     0.40    0.06    0.46 
Running the tests in 'tests/norm.r' failed.
Complete output:
  > suppressPackageStartupMessages(library(float))
  > set.seed(1234)
  > 
  > tol = 1e-6
  > m = 10
  > n = 3
  > 
  > x = matrix(stats::rnorm(m*n), m, n)
  > s = fl(x)
  > 
  > type = "O"
  > test = dbl(norm(s, type))
  > truth = norm(x, type)
  > stopifnot(all.equal(test, truth, tol=tol))
  > 
  > type = "I"
  > test = dbl(norm(s, type))
  > truth = norm(x, type)
  > stopifnot(all.equal(test, truth, tol=tol))
  > 
  > type = "F"
  > test = dbl(norm(s, type))
  > truth = norm(x, type)
  > stopifnot(all.equal(test, truth, tol=tol))
  > 
  > type = "M"
  > test = dbl(norm(s, type))
  > truth = norm(x, type)
  > stopifnot(all.equal(test, truth, tol=tol))
  > 
  > type = "2"
  > test = dbl(norm(s, type))
  > truth = norm(x, type)
  > stopifnot(all.equal(test, truth, tol=tol))
  > 
  > proc.time()
     user  system elapsed 
     0.35    0.06    0.40 
Running the tests in 'tests/print.r' failed.
Complete output:
  > suppressPackageStartupMessages(library(float))
  > suppressPackageStartupMessages(library(utils))
  > 
  > m = 10L
  > n = 3L
  > 
  > x = matrix(1:(m*n), m, n)
  > xs = fl(x)
  > 
  > stopifnot(identical(nrow(x), m))
  > stopifnot(identical(ncol(x), n))
  > stopifnot(identical(dim(x), c(m, n)))
  > 
  > p = paste(capture.output(print(xs)), collapse="\n")
  > truth = "# A float32 matrix: 10x3
  +       [,1] [,2] [,3]
  +  [1,]    1   11   21
  +  [2,]    2   12   22
  +  [3,]    3   13   23
  +  [4,]    4   14   24
  +  [5,]    5   15   25
  +  [6,]    6   16   26
  +  [7,]    7   17   27
  +  [8,]    8   18   28
  +  [9,]    9   19   29
  + [10,]   10   20   30"
  > 
  > stopifnot(identical(p, truth))
  > 
  > proc.time()
     user  system elapsed 
     0.53    0.06    0.57 
Running the tests in 'tests/rep.r' failed.
Complete output:
  > suppressPackageStartupMessages(library(float))
  > 
  > tol = 1e-6
  > 
  > x = matrix(1:6, 3, 2)
  > s = fl(x)
  > 
  > test = dbl(rep(s, 5))
  > truth = rep(x, 5)
  > stopifnot(all.equal(test, truth, tol=tol))
  > 
  > proc.time()
     user  system elapsed 
     0.42    0.09    0.51