Running 'testthat.R' [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.9657854 -0.08248168
  [2,] 0.2593425  0.99659258
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.2935571 
  
  
  probit :
  Reference normalized matrix:
       [,1] [,2]
  [1,]    1    0
  [2,]    0    1
  Estimated normalized matrix:
              [,1]        [,2]
  [1,]  0.99993903 -0.04888512
  [2,] -0.01104291  0.99880441
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.05008071 
  
  
  logit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.4826671 0.9455185
  [2,] -0.8758039 0.3255684
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.05407677 
  
  
  probit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.4439162 0.9545129
  [2,] -0.8960683 0.2981695
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.02388789 
  [ 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: 1.41
  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)
  -- 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.9
  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 2 | WARN 2 | SKIP 0 | PASS 224 ]
  Error: Test failures
  Execution halted