Running ‘testthat.R’ [7s/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.9993758 0.03217004
  [2,] 0.0353266 0.99948241
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.03595078 
  
  
  probit :
  Reference normalized matrix:
       [,1] [,2]
  [1,]    1    0
  [2,]    0    1
  Estimated normalized matrix:
              [,1]        [,2]
  [1,]  0.99937707 -0.09142638
  [2,] -0.03529126  0.99581184
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.09561454 
  
  
  logit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.4564484 0.9466838
  [2,] -0.8897499 0.3221643
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.01391215 
  
  
  probit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.4600649 0.9517502
  [2,] -0.8878853 0.3068739
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.01939327 
  [ FAIL 2 | WARN 2 | SKIP 0 | PASS 224 ]
  
  ══ 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.783
  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: 3.72
  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 2 | WARN 2 | SKIP 0 | PASS 224 ]
  Error: Test failures
  Execution halted