Running ‘arithmetic.r’
  Running ‘backsolve.r’
  Running ‘bind.r’
  Running ‘c.r’
  Running ‘chol.r’
  Running ‘chol2inv.r’
  Running ‘colSums.r’
  Running ‘comparison.r’
  Running ‘cond.r’ [30m/71m]
  Running ‘crossprod.r’
  Running ‘diag.r’
  Running ‘eigen.r’ [31m/38m]
  Running ‘extremes.r’
  Running ‘isSymmetric.r’
  Running ‘math.r’
  Running ‘matmult.r’
  Running ‘na.r’
  Running ‘norm.r’ [30m/36m]
  Running ‘print.r’
  Running ‘qr.r’ [0m/35m]
  Running ‘rand.r’
  Running ‘rep.r’
  Running ‘scale.r’
  Running ‘sign.r’
  Running ‘solve.r’
Running the tests in ‘tests/cond.r’ failed.
Complete output:
  > suppressPackageStartupMessages(library(float))
  > set.seed(1234)
  > 
  > tol = 1e-4
  > m = 10
  > n = 3
  > 
  > x = matrix(stats::rnorm(m*n), m, n)
  > s = fl(x)
  > 
  > type = "O"
  > test = dbl(rcond(s, type))
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)
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))
Running the tests in ‘tests/qr.r’ failed.
Complete output:
  > suppressPackageStartupMessages(library(float))
  > set.seed(1234)
  > 
  > tol = 1e-6
  > 
  > cmp = function(qr_x, qr_xs)
  + {
  +   test = dbl(qr.R(qr_xs))
  +   truth = qr.R(qr_x)
  +   stopifnot(all.equal(test, truth, tol=tol))
  +   
  +   test = dbl(qr.Q(qr_xs))
  +   truth = qr.Q(qr_x)
  +   stopifnot(all.equal(test, truth, tol=tol))
  + 
  +   test = dbl(qr.R(qr_xs, complete=TRUE))
  +   truth = qr.R(qr_x, complete=TRUE)
  +   stopifnot(all.equal(test, truth, tol=tol))
  +   
  +   test = dbl(qr.Q(qr_xs, complete=TRUE))
  +   truth = qr.Q(qr_x, complete=TRUE)
  +   stopifnot(all.equal(test, truth, tol=tol))
  + }
  > 
  > 
  > # m > n
  > x = matrix(stats::rnorm(30), 10)
  > xs = fl(x)
  > qr_x = qr(x, LAPACK=TRUE)
  > qr_xs = qr(xs)