Running ‘testthat.R’ [94s/116s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > local_edition(3)
  > library(ridgetorus)
  Loading required package: Rcpp
  > 
  > test_check("ridgetorus")
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = FALSE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = TRUE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = TRUE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = TRUE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  bwc_loglik_null(hom = TRUE, indep = TRUE) > bwc_loglik, refitting unconstrained model
  [ FAIL 8 | WARN 0 | SKIP 0 | PASS 446 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_BvM.R:29:1'): (code run outside of `test_that()`) ──────────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'BAMBI'
  Backtrace:
      ▆
   1. ├─ridgetorus::r_bvm(n = n, mu = mu1, kappa = kappa1) at test_BvM.R:29:1
   2. └─base::loadNamespace(x)
   3.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   4.     └─base (local) withOneRestart(expr, restarts[[1L]])
   5.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test_lrt.R:47:3'): Homogeneity tests for bvm under H0 ───────────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'BAMBI'
  Backtrace:
       ▆
    1. ├─base::replicate(...) at test_lrt.R:47:3
    2. │ └─base::sapply(...)
    3. │   └─base::lapply(X = X, FUN = FUN, ...)
    4. │     └─ridgetorus (local) FUN(X[[i]], ...)
    5. │       ├─ridgetorus::biv_lrt(...)
    6. │       │ └─ridgetorus (local) fit_type_mle(x = x, hom = FALSE, indep = FALSE, ...)
    7. │       │   └─base::rbind(x)
    8. │       └─ridgetorus::r_bvm(n = n_0, mu = mu, kappa = kappa_01)
    9. └─base::loadNamespace(x)
   10.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   11.     └─base (local) withOneRestart(expr, restarts[[1L]])
   12.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test_lrt.R:73:3'): Homogeneity tests for bvm under H1 ───────────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'BAMBI'
  Backtrace:
       ▆
    1. ├─base::replicate(...) at test_lrt.R:73:3
    2. │ └─base::sapply(...)
    3. │   └─base::lapply(X = X, FUN = FUN, ...)
    4. │     └─ridgetorus (local) FUN(X[[i]], ...)
    5. │       ├─ridgetorus::biv_lrt(...)
    6. │       │ └─ridgetorus (local) fit_type_mle(x = x, hom = FALSE, indep = FALSE, ...)
    7. │       │   └─base::rbind(x)
    8. │       └─ridgetorus::r_bvm(n = n_1, mu = mu, kappa = kappa_11)
    9. └─base::loadNamespace(x)
   10.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   11.     └─base (local) withOneRestart(expr, restarts[[1L]])
   12.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test_lrt.R:99:3'): Independence tests for bvm under H0 ──────────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'BAMBI'
  Backtrace:
       ▆
    1. ├─base::replicate(...) at test_lrt.R:99:3
    2. │ └─base::sapply(...)
    3. │   └─base::lapply(X = X, FUN = FUN, ...)
    4. │     └─ridgetorus (local) FUN(X[[i]], ...)
    5. │       ├─ridgetorus::biv_lrt(...)
    6. │       │ └─ridgetorus (local) fit_type_mle(x = x, hom = FALSE, indep = FALSE, ...)
    7. │       │   └─base::rbind(x)
    8. │       └─ridgetorus::r_bvm(n = n_0, mu = mu, kappa = kappa_03)
    9. └─base::loadNamespace(x)
   10.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   11.     └─base (local) withOneRestart(expr, restarts[[1L]])
   12.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test_lrt.R:125:3'): Independence tests for bvm under H1 ─────────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'BAMBI'
  Backtrace:
       ▆
    1. ├─base::replicate(...) at test_lrt.R:125:3
    2. │ └─base::sapply(...)
    3. │   └─base::lapply(X = X, FUN = FUN, ...)
    4. │     └─ridgetorus (local) FUN(X[[i]], ...)
    5. │       ├─ridgetorus::biv_lrt(...)
    6. │       │ └─ridgetorus (local) fit_type_mle(x = x, hom = FALSE, indep = FALSE, ...)
    7. │       │   └─base::rbind(x)
    8. │       └─ridgetorus::r_bvm(n = n_1, mu = mu, kappa = kappa_13)
    9. └─base::loadNamespace(x)
   10.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   11.     └─base (local) withOneRestart(expr, restarts[[1L]])
   12.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test_lrt.R:151:3'): Homogeneity and independence for bvm under H0 ───
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'BAMBI'
  Backtrace:
       ▆
    1. ├─base::replicate(...) at test_lrt.R:151:3
    2. │ └─base::sapply(...)
    3. │   └─base::lapply(X = X, FUN = FUN, ...)
    4. │     └─ridgetorus (local) FUN(X[[i]], ...)
    5. │       ├─ridgetorus::biv_lrt(...)
    6. │       │ └─ridgetorus (local) fit_type_mle(x = x, hom = FALSE, indep = FALSE, ...)
    7. │       │   └─base::rbind(x)
    8. │       └─ridgetorus::r_bvm(n = n_0, mu = mu, kappa = kappa_05)
    9. └─base::loadNamespace(x)
   10.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   11.     └─base (local) withOneRestart(expr, restarts[[1L]])
   12.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test_lrt.R:177:3'): Homogeneity and independence for bvm under H1 ───
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'BAMBI'
  Backtrace:
       ▆
    1. ├─base::replicate(...) at test_lrt.R:177:3
    2. │ └─base::sapply(...)
    3. │   └─base::lapply(X = X, FUN = FUN, ...)
    4. │     └─ridgetorus (local) FUN(X[[i]], ...)
    5. │       ├─ridgetorus::biv_lrt(...)
    6. │       │ └─ridgetorus (local) fit_type_mle(x = x, hom = FALSE, indep = FALSE, ...)
    7. │       │   └─base::rbind(x)
    8. │       └─ridgetorus::r_bvm(n = n_1, mu = mu, kappa = kappa_15)
    9. └─base::loadNamespace(x)
   10.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   11.     └─base (local) withOneRestart(expr, restarts[[1L]])
   12.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test_ridge-pca.R:5:1'): (code run outside of `test_that()`) ─────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'BAMBI'
  Backtrace:
      ▆
   1. ├─ridgetorus::r_bvm(n = n, mu = 3:2, kappa = c(3, 1, 2)) at test_ridge-pca.R:5:1
   2. └─base::loadNamespace(x)
   3.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   4.     └─base (local) withOneRestart(expr, restarts[[1L]])
   5.       └─base (local) doWithOneRestart(return(expr), restart)
  
  [ FAIL 8 | WARN 0 | SKIP 0 | PASS 446 ]
  Error: Test failures
  Execution halted
  Error in deferred_run(env) : could not find function "deferred_run"
  Calls: <Anonymous>