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/30m]
  Running ‘crossprod.r’
  Running ‘diag.r’
  Running ‘eigen.r’ [31m/31m]
  Running ‘extremes.r’
  Running ‘isSymmetric.r’
  Running ‘math.r’
  Running ‘matmult.r’
  Running ‘na.r’
  Running ‘norm.r’ [31m/31m]
  Running ‘print.r’
  Running ‘qr.r’ [30m/30m]
  Running ‘rand.r’
  Running ‘rep.r’
  Running ‘scale.r’
  Running ‘sign.r’
  Running ‘solve.r’ [31m/31m]
  Running ‘sum.r’
  Running ‘svd.r’ [0m/27m]
  Running ‘sweep.r’
  Running ‘xpose.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)
Running the tests in ‘tests/solve.r’ failed.
Complete output:
  > suppressPackageStartupMessages(library(float))
  > set.seed(1234)
  > 
  > tol = 1e-6
  > 
  > x = crossprod(matrix(stats::rnorm(30), 10))
  > xs = fl(x)
  > y = 1:3
  > ys = fl(y)
  > 
  > solve_xy = solve(x, y)
  > 
  > 
  > 
  > test = dbl(solve(xs))
Running the tests in ‘tests/svd.r’ failed.
Complete output:
  > suppressPackageStartupMessages(library(float))
  > set.seed(1234)
  > 
  > testd = function(test, truth) all.equal(dbl(test$d), truth$d, tol=tol)
  > testu = function(test, truth) all.equal(dbl(abs(test$u)), abs(truth$u), tol=tol)
  > testv = function(test, truth) all.equal(dbl(abs(test$v)), abs(truth$v), tol=tol)
  > same = function(test, truth)
  + {
  +   stopifnot(testd(test, truth))
  +   stopifnot(ifelse(is.null(test$u), is.null(truth$u), testu(test, truth)))
  +   stopifnot(ifelse(is.null(test$v), is.null(truth$v), testv(test, truth)))
  + }
  > 
  > tester = function(s, x, ...)
  + {
  +   test = La.svd(s, ...)
  +   truth = La.svd(x, ...)
  +   same(test, truth)
  + }
  > 
  > tol = 1e-5
  > 
  > 
  > 
  > ### m > n
  > m = 10
  > n = 3
  > 
  > s = flrnorm(m, n)
  > x = dbl(s)
  > 
  > tester(s, x, nu=0, nv=0)