Running ‘testthat.R’ [7s/11s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > 
  > # Locally:
  > #library(devtools)
  > #load_all("../")
  > 
  > # With R CMD check:
  > library(morpheus)
  > 
  > test_check("morpheus")
  
  
  logit :
  Reference normalized matrix:
       [,1] [,2]
  [1,]    1    0
  [2,]    0    1
  Estimated normalized matrix:
             [,1]        [,2]
  [1,]  0.9683337 -0.01042423
  [2,] -0.2496593  0.99994567
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.2813256 
  
  
  probit :
  Reference normalized matrix:
       [,1] [,2]
  [1,]    1    0
  [2,]    0    1
  Estimated normalized matrix:
             [,1]        [,2]
  [1,] 0.99995652 -0.02723884
  [2,] 0.00932503  0.99962895
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.02760989 
  
  
  logit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.4280043 0.9476679
  [2,] -0.9037767 0.3192578
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.02855881 
  
  
  probit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.4489517 0.9526427
  [2,] -0.8935560 0.3040919
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.01609532 
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test-jointDiag.R:46:5): 'jedi' and 'uwedge' joint-diagonalization methods return a correct matrix ──
  `x` is not strictly less than `expected`. Difference: 0.241
  Backtrace:
      █
   1. └─morpheus:::.computeMuCheckDiag(...) test-jointDiag.R:46:4
   2.   └─testthat::expect_that(...) test-jointDiag.R:27:4
   3.     └─testthat:::condition(object)
   4.       └─testthat::expect_lt(x, expected)
  ── Failure (test-jointDiag.R:46:5): 'jedi' and 'uwedge' joint-diagonalization methods return a correct matrix ──
  `x` is not strictly less than `expected`. Difference: 0.0597
  Backtrace:
      █
   1. └─morpheus:::.computeMuCheckDiag(...) test-jointDiag.R:46:4
   2.   └─testthat::expect_that(...) test-jointDiag.R:27:4
   3.     └─testthat:::condition(object)
   4.       └─testthat::expect_lt(x, expected)
  ── Failure (test-jointDiag.R:46:5): 'jedi' and 'uwedge' joint-diagonalization methods return a correct matrix ──
  `x` is not strictly less than `expected`. Difference: 0.202
  Backtrace:
      █
   1. └─morpheus:::.computeMuCheckDiag(...) test-jointDiag.R:46:4
   2.   └─testthat::expect_that(...) test-jointDiag.R:27:4
   3.     └─testthat:::condition(object)
   4.       └─testthat::expect_lt(x, expected)
  
  [ FAIL 3 | WARN 2 | SKIP 0 | PASS 223 ]
  Error: Test failures
  Execution halted