Running ‘testthat.R’ [8s/12s]
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.99803752 0.1475908
  [2,] 0.06261869 0.9890485
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.1585423 
  
  
  probit :
  Reference normalized matrix:
       [,1] [,2]
  [1,]    1    0
  [2,]    0    1
  Estimated normalized matrix:
             [,1]        [,2]
  [1,] 0.99859914 -0.03836783
  [2,] 0.05291266  0.99926368
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.05431352 
  
  
  logit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.4485930 0.9353712
  [2,] -0.8937362 0.3536676
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.05075191 
  
  
  probit :
  Reference normalized matrix:
             [,1]      [,2]
  [1,]  0.4472136 0.9486833
  [2,] -0.8944272 0.3162278
  Estimated normalized matrix:
             [,1]      [,2]
  [1,]  0.4315296 0.9493765
  [2,] -0.9020988 0.3141404
  Difference norm (Matrix norm ||.||_1, max. abs. sum on a column)
  0.02335554 
  [ FAIL 8 | WARN 3 | SKIP 0 | PASS 218 ]
  
  ══ 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.141
  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.0551
  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.435
  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.967
  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: 2.22
  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.945
  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.114
  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.0263
  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 8 | WARN 3 | SKIP 0 | PASS 218 ]
  Error: Test failures
  Execution halted