Running ‘testthat.R’ [13s/16s]
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.9864588 -0.04172109
  [2,] -0.1640095  0.99912930
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.1775507 
  
  
  probit :
  Reference normalized matrix:
       [,1] [,2]
  [1,]    1    0
  [2,]    0    1
  Estimated normalized matrix:
              [,1]        [,2]
  [1,]  0.99982054 -0.01445481
  [2,] -0.01894449  0.99989552
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.01912395 
  
  
  logit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.4474030 0.9475673
  [2,] -0.8943325 0.3195564
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.004444665 
  
  
  probit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.4475838 0.9482637
  [2,] -0.8942420 0.3174839
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.001675808 
  [ FAIL 3 | WARN 3 | SKIP 0 | PASS 223 ]
  
  ══ 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.118
  Backtrace:
      ▆
   1. └─morpheus .computeMuCheckDiag(io$X, io$Y, K, jd_method = "uwedge", beta_ref) at test-jointDiag.R:46:4
   2.   └─testthat::expect_that(...) at 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.103
  Backtrace:
      ▆
   1. └─morpheus .computeMuCheckDiag(io$X, io$Y, K, jd_method = "uwedge", beta_ref) at test-jointDiag.R:46:4
   2.   └─testthat::expect_that(...) at 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.195
  Backtrace:
      ▆
   1. └─morpheus .computeMuCheckDiag(io$X, io$Y, K, jd_method = "uwedge", beta_ref) at test-jointDiag.R:46:4
   2.   └─testthat::expect_that(...) at test-jointDiag.R:27:4
   3.     └─testthat condition(object)
   4.       └─testthat::expect_lt(x, expected)
  
  [ FAIL 3 | WARN 3 | SKIP 0 | PASS 223 ]
  Error: Test failures
  Execution halted