Running ‘testthat.R’ [10s/13s]
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.9943345 -0.02938064
  [2,] 0.1062965  0.99956830
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.111962 
  
  
  probit :
  Reference normalized matrix:
       [,1] [,2]
  [1,]    1    0
  [2,]    0    1
  Estimated normalized matrix:
             [,1]       [,2]
  [1,] 0.99946586 0.08375239
  [2,] 0.03268033 0.99648660
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.0872658 
  
  
  logit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.3982453 0.9663944
  [2,] -0.9172790 0.2570638
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.07687509 
  
  
  probit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.4594369 0.9459728
  [2,] -0.8882104 0.3242461
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.01844011 
  ══ Warnings ════════════════════════════════════════════════════════════════════
  ── Warning (test-jointDiag.R:46:5): 'jedi' and 'uwedge' joint-diagonalization methods return a correct matrix ──
  Convergence not reached
  Backtrace:
   1. morpheus:::.computeMuCheckDiag(...) test-jointDiag.R:46:4
   2. jointDiag::ajd(M2_t, method = jd_method) test-jointDiag.R:15:2
   3. jointDiag::uwedge(M, B0, eps, itermax, keepTrace)
  ── Warning (test-jointDiag.R:46:5): 'jedi' and 'uwedge' joint-diagonalization methods return a correct matrix ──
  Convergence not reached
  Backtrace:
   1. morpheus:::.computeMuCheckDiag(...) test-jointDiag.R:46:4
   2. jointDiag::ajd(M2_t, method = jd_method) test-jointDiag.R:15:2
   3. jointDiag::uwedge(M, B0, eps, itermax, keepTrace)
  
  ══ 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.00495
  
  [ FAIL 1 | WARN 2 | SKIP 0 | PASS 225 ]
  Error: Test failures
  Execution halted