Running ‘testthat.R’ [213s/244s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ggplot2)
  > 
  > test_check("evolqg")
  Loading required package: evolqg
  Loading required package: plyr
  [ FAIL 2 | WARN 3142 | SKIP 2 | PASS 372 ]
  
  ══ Skipped tests (2) ═══════════════════════════════════════════════════════════
  • On CRAN (2): 'test.LModularity.r:2:3', 'test.MeanMatrix.r:13:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test.MatrixStatistics.r:12:15'): Autonomy returns correct results ───
  Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'diag': 'a' is computationally singular, rcond(a)=4.51556e-19
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(Autonomy(singular.matrix), "matrix is singular, can't compute autonomy directly. Using nearPD, results could be wrong") at test.MatrixStatistics.r:12:14
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─evolqg::Autonomy(singular.matrix)
    7. │ ├─base::diag(t(beta.mat) %*% solve(cov.matrix, beta.mat))
    8. │ ├─base::solve(cov.matrix, beta.mat)
    9. │ └─Matrix::solve(cov.matrix, beta.mat)
   10. │   └─Matrix (local) .local(a, b, ...)
   11. │     └─Matrix:::.solve.checkCond(a, tol)
   12. │       └─base::stop(...)
   13. └─base::.handleSimpleError(...)
   14.   └─base (local) h(simpleError(msg, call))
  ── Error ('test.MatrixStatistics.r:27:15'): ConditionalEvolvability returns correct restults ──
  Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'diag': 'a' is computationally singular, rcond(a)=1.55624e-18
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test.MatrixStatistics.r:27:14
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─evolqg::ConditionalEvolvability(singular.matrix)
    7. │ ├─base::diag(t(beta.mat) %*% solve(cov.matrix, beta.mat))
    8. │ ├─base::solve(cov.matrix, beta.mat)
    9. │ └─Matrix::solve(cov.matrix, beta.mat)
   10. │   └─Matrix (local) .local(a, b, ...)
   11. │     └─Matrix:::.solve.checkCond(a, tol)
   12. │       └─base::stop(...)
   13. └─base::.handleSimpleError(...)
   14.   └─base (local) h(simpleError(msg, call))
  
  [ FAIL 2 | WARN 3142 | SKIP 2 | PASS 372 ]
  Error: Test failures
  Execution halted