Running 'testthat.R' [11s/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.9823983 -0.1163980
  [2,] -0.1867984  0.9932026
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.2044001 
  
  
  probit :
  Reference normalized matrix:
       [,1] [,2]
  [1,]    1    0
  [2,]    0    1
  Estimated normalized matrix:
             [,1]        [,2]
  [1,]  0.9949556 -0.05859475
  [2,] -0.1003166  0.99828185
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.1053611 
  
  
  logit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.4414026 0.9390082
  [2,] -0.8973092 0.3438947
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.037342 
  
  
  probit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.4456012 0.9455553
  [2,] -0.8952316 0.3254614
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.01236155 
  [ FAIL 1 | WARN 3 | SKIP 0 | PASS 225 ]
  
  == 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.0966
  Backtrace:
      x
   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 1 | WARN 3 | SKIP 0 | PASS 225 ]
  Error: Test failures
  Execution halted