Running ‘testthat.R’ [35s/40s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(pprof)
  > 
  > test_check("pprof")
  Input format: Y, Z, and ProvID.
  Input format: Y, Z, and ProvID.
  Input format: Y, Z, and ProvID.
  3 out of 100 remaining providers with no events.
  0 out of 100 remaining providers with all events.
  After screening, 38.77% of all records exhibit occurrences of events (Y = 1)
  Implementing SerBIN algorithm (Rcpp) for fixed provider effects model ...
  Iter 1: Minimum criterion across all checks is 5.022e-01;
  Iter 2: Minimum criterion across all checks is 1.422e-01;
  Iter 3: Minimum criterion across all checks is 3.528e-02;
  Iter 4: Minimum criterion across all checks is 5.671e-03;
  Iter 5: Minimum criterion across all checks is 1.214e-03;
  Iter 6: Minimum criterion across all checks is 2.151e-04;
  Iter 7: Minimum criterion across all checks is 6.647e-05;
  Iter 8: Minimum criterion across all checks is 7.565e-06;
  serBIN (Rcpp) algorithm converged after 8 iterations!
  Setting levels: control = 0, case = 1
  Setting direction: controls < cases
  Input format: Y, Z, and ProvID.
  Saving _problems/test-SM_output-99.R
  Saving _problems/test-SM_output-125.R
  Input format: Y, Z, and ProvID.
  Input format: Y, Z, and ProvID.
  Input format: Y, Z, and ProvID.
  3 out of 100 remaining providers with no events.
  0 out of 100 remaining providers with all events.
  After screening, 38.77% of all records exhibit occurrences of events (Y = 1)
  Implementing SerBIN algorithm (Rcpp) for fixed provider effects model ...
  Iter 1: Minimum criterion across all checks is 5.022e-01;
  Iter 2: Minimum criterion across all checks is 1.422e-01;
  Iter 3: Minimum criterion across all checks is 3.528e-02;
  Iter 4: Minimum criterion across all checks is 5.671e-03;
  Iter 5: Minimum criterion across all checks is 1.214e-03;
  Iter 6: Minimum criterion across all checks is 2.151e-04;
  Iter 7: Minimum criterion across all checks is 6.647e-05;
  Iter 8: Minimum criterion across all checks is 7.565e-06;
  serBIN (Rcpp) algorithm converged after 8 iterations!
  Setting levels: control = 0, case = 1
  Setting direction: controls < cases
  Input format: Y, Z, and ProvID.
  Saving _problems/test-confint-132.R
  Saving _problems/test-confint-165.R
  Input format: Y, Z, and ProvID.
  Input format: data, Y.char, Z.char, and ProvID.char.
  Input format: formula and data.
  Input format: Y, Z, and ProvID.
  Input format: data, Y.char, Z.char, and ProvID.char.
  Input format: formula and data.
  Saving _problems/test-logis_cre-13.R
  Input format: Y, Z, and ProvID.
  3 out of 100 remaining providers with no events.
  0 out of 100 remaining providers with all events.
  After screening, 38.77% of all records exhibit occurrences of events (Y = 1)
  Implementing SerBIN algorithm (Rcpp) for fixed provider effects model ...
  Iter 1: Minimum criterion across all checks is 5.022e-01;
  Iter 2: Minimum criterion across all checks is 1.422e-01;
  Iter 3: Minimum criterion across all checks is 3.528e-02;
  Iter 4: Minimum criterion across all checks is 5.671e-03;
  Iter 5: Minimum criterion across all checks is 1.214e-03;
  Iter 6: Minimum criterion across all checks is 2.151e-04;
  Iter 7: Minimum criterion across all checks is 6.647e-05;
  Iter 8: Minimum criterion across all checks is 7.565e-06;
  serBIN (Rcpp) algorithm converged after 8 iterations!
  Setting levels: control = 0, case = 1
  Setting direction: controls < cases
  Input format: data, Y.char, Z.char, and ProvID.char.
  3 out of 100 remaining providers with no events.
  0 out of 100 remaining providers with all events.
  After screening, 38.77% of all records exhibit occurrences of events (Y = 1)
  Implementing SerBIN algorithm (Rcpp) for fixed provider effects model ...
  Iter 1: Minimum criterion across all checks is 5.022e-01;
  Iter 2: Minimum criterion across all checks is 1.422e-01;
  Iter 3: Minimum criterion across all checks is 3.528e-02;
  Iter 4: Minimum criterion across all checks is 5.671e-03;
  Iter 5: Minimum criterion across all checks is 1.214e-03;
  Iter 6: Minimum criterion across all checks is 2.151e-04;
  Iter 7: Minimum criterion across all checks is 6.647e-05;
  Iter 8: Minimum criterion across all checks is 7.565e-06;
  serBIN (Rcpp) algorithm converged after 8 iterations!
  Setting levels: control = 0, case = 1
  Setting direction: controls < cases
  Input format: formula and data.
  3 out of 100 remaining providers with no events.
  0 out of 100 remaining providers with all events.
  After screening, 38.77% of all records exhibit occurrences of events (Y = 1)
  Implementing SerBIN algorithm (Rcpp) for fixed provider effects model ...
  Iter 1: Minimum criterion across all checks is 5.022e-01;
  Iter 2: Minimum criterion across all checks is 1.422e-01;
  Iter 3: Minimum criterion across all checks is 3.528e-02;
  Iter 4: Minimum criterion across all checks is 5.671e-03;
  Iter 5: Minimum criterion across all checks is 1.214e-03;
  Iter 6: Minimum criterion across all checks is 2.151e-04;
  Iter 7: Minimum criterion across all checks is 6.647e-05;
  Iter 8: Minimum criterion across all checks is 7.565e-06;
  serBIN (Rcpp) algorithm converged after 8 iterations!
  Setting levels: control = 0, case = 1
  Setting direction: controls < cases
  Input format: Y, Z, and ProvID.
  Input format: data, Y.char, Z.char, and ProvID.char.
  Saving _problems/test-logis_re-14.R
  Input format: Y, Z, and ProvID.
  Input format: Y, Z, and ProvID.
  Input format: Y, Z, and ProvID.
  3 out of 100 remaining providers with no events.
  0 out of 100 remaining providers with all events.
  After screening, 38.77% of all records exhibit occurrences of events (Y = 1)
  Implementing SerBIN algorithm (Rcpp) for fixed provider effects model ...
  Iter 1: Minimum criterion across all checks is 5.022e-01;
  Iter 2: Minimum criterion across all checks is 1.422e-01;
  Iter 3: Minimum criterion across all checks is 3.528e-02;
  Iter 4: Minimum criterion across all checks is 5.671e-03;
  Iter 5: Minimum criterion across all checks is 1.214e-03;
  Iter 6: Minimum criterion across all checks is 2.151e-04;
  Iter 7: Minimum criterion across all checks is 6.647e-05;
  Iter 8: Minimum criterion across all checks is 7.565e-06;
  serBIN (Rcpp) algorithm converged after 8 iterations!
  Setting levels: control = 0, case = 1
  Setting direction: controls < cases
  Input format: Y, Z, and ProvID.
  Input format: Y, Z, and ProvID.
  Input format: Y, Z, and ProvID.
  Input format: Y, Z, and ProvID.
  3 out of 100 remaining providers with no events.
  0 out of 100 remaining providers with all events.
  After screening, 38.77% of all records exhibit occurrences of events (Y = 1)
  Implementing SerBIN algorithm (Rcpp) for fixed provider effects model ...
  Iter 1: Minimum criterion across all checks is 5.022e-01;
  Iter 2: Minimum criterion across all checks is 1.422e-01;
  Iter 3: Minimum criterion across all checks is 3.528e-02;
  Iter 4: Minimum criterion across all checks is 5.671e-03;
  Iter 5: Minimum criterion across all checks is 1.214e-03;
  Iter 6: Minimum criterion across all checks is 2.151e-04;
  Iter 7: Minimum criterion across all checks is 6.647e-05;
  Iter 8: Minimum criterion across all checks is 7.565e-06;
  serBIN (Rcpp) algorithm converged after 8 iterations!
  Setting levels: control = 0, case = 1
  Setting direction: controls < cases
  Input format: Y, Z, and ProvID.
  Saving _problems/test-test-106.R
  Saving _problems/test-test-129.R
  [ FAIL 8 | WARN 0 | SKIP 0 | PASS 129 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-SM_output.R:99:3'): SM_output.logis_re function behaves correctly ──
  <Rcpp::exception/C++Error/error/condition>
  Error: Downdated VtV is not positive definite
  Backtrace:
       ▆
    1. └─pprof::logis_re(Y = Y, Z = Z, ProvID = ProvID) at test-SM_output.R:99:3
    2.   └─lme4::glmer(...)
    3.     └─lme4::optimizeGlmer(...)
    4.       └─lme4:::optwrap(...)
    5.         ├─base::withCallingHandlers(...)
    6.         ├─base::do.call(optfun, arglist)
    7.         └─lme4 (local) `<fn>`(...)
    8.           ├─nM$newf(fn(nM$xeval()))
    9.           │ └─base::stopifnot(length(value <- as.numeric(value)) == 1L)
   10.           └─lme4 (local) fn(nM$xeval())
   11.             └─lme4 (local) pwrssUpdate(...)
  ── Error ('test-SM_output.R:125:3'): SM_output.logis_cre function behaves correctly ──
  <Rcpp::exception/C++Error/error/condition>
  Error: Downdated VtV is not positive definite
  Backtrace:
       ▆
    1. └─pprof::logis_cre(...) at test-SM_output.R:125:3
    2.   └─lme4::glmer(...)
    3.     └─lme4::optimizeGlmer(...)
    4.       └─lme4:::optwrap(...)
    5.         ├─base::withCallingHandlers(...)
    6.         ├─base::do.call(optfun, arglist)
    7.         └─lme4 (local) `<fn>`(...)
    8.           ├─nM$newf(fn(nM$xeval()))
    9.           │ └─base::stopifnot(length(value <- as.numeric(value)) == 1L)
   10.           └─lme4 (local) fn(nM$xeval())
   11.             └─lme4 (local) pwrssUpdate(...)
  ── Error ('test-confint.R:132:3'): test.logis_re function behaves correctly ────
  <Rcpp::exception/C++Error/error/condition>
  Error: Downdated VtV is not positive definite
  Backtrace:
       ▆
    1. └─pprof::logis_re(Y = Y, Z = Z, ProvID = ProvID) at test-confint.R:132:3
    2.   └─lme4::glmer(...)
    3.     └─lme4::optimizeGlmer(...)
    4.       └─lme4:::optwrap(...)
    5.         ├─base::withCallingHandlers(...)
    6.         ├─base::do.call(optfun, arglist)
    7.         └─lme4 (local) `<fn>`(...)
    8.           ├─nM$newf(fn(nM$xeval()))
    9.           │ └─base::stopifnot(length(value <- as.numeric(value)) == 1L)
   10.           └─lme4 (local) fn(nM$xeval())
   11.             └─lme4 (local) pwrssUpdate(...)
  ── Error ('test-confint.R:165:3'): test.logis_cre function behaves correctly ───
  <Rcpp::exception/C++Error/error/condition>
  Error: Downdated VtV is not positive definite
  Backtrace:
       ▆
    1. └─pprof::logis_cre(...) at test-confint.R:165:3
    2.   └─lme4::glmer(...)
    3.     └─lme4::optimizeGlmer(...)
    4.       └─lme4:::optwrap(...)
    5.         ├─base::withCallingHandlers(...)
    6.         ├─base::do.call(optfun, arglist)
    7.         └─lme4 (local) `<fn>`(...)
    8.           ├─nM$newf(fn(nM$xeval()))
    9.           │ └─base::stopifnot(length(value <- as.numeric(value)) == 1L)
   10.           └─lme4 (local) fn(nM$xeval())
   11.             └─lme4 (local) pwrssUpdate(...)
  ── Error ('test-logis_cre.R:13:3'): logis_cre function behaves correctly ───────
  <Rcpp::exception/C++Error/error/condition>
  Error: Downdated VtV is not positive definite
  Backtrace:
       ▆
    1. └─pprof::logis_cre(...) at test-logis_cre.R:13:3
    2.   └─lme4::glmer(...)
    3.     └─lme4::optimizeGlmer(...)
    4.       └─lme4:::optwrap(...)
    5.         ├─base::withCallingHandlers(...)
    6.         ├─base::do.call(optfun, arglist)
    7.         └─lme4 (local) `<fn>`(...)
    8.           ├─nM$newf(fn(nM$xeval()))
    9.           │ └─base::stopifnot(length(value <- as.numeric(value)) == 1L)
   10.           └─lme4 (local) fn(nM$xeval())
   11.             └─lme4 (local) pwrssUpdate(...)
  ── Error ('test-logis_re.R:14:3'): logis_re function behaves correctly ─────────
  <Rcpp::exception/C++Error/error/condition>
  Error: Downdated VtV is not positive definite
  Backtrace:
       ▆
    1. └─pprof::logis_re(...) at test-logis_re.R:14:3
    2.   └─lme4::glmer(...)
    3.     └─lme4::optimizeGlmer(...)
    4.       └─lme4:::optwrap(...)
    5.         ├─base::withCallingHandlers(...)
    6.         ├─base::do.call(optfun, arglist)
    7.         └─lme4 (local) `<fn>`(...)
    8.           ├─nM$newf(fn(nM$xeval()))
    9.           │ └─base::stopifnot(length(value <- as.numeric(value)) == 1L)
   10.           └─lme4 (local) fn(nM$xeval())
   11.             └─lme4 (local) pwrssUpdate(...)
  ── Error ('test-test.R:106:3'): test.logis_re function behaves correctly ───────
  <Rcpp::exception/C++Error/error/condition>
  Error: Downdated VtV is not positive definite
  Backtrace:
       ▆
    1. └─pprof::logis_re(Y = Y, Z = Z, ProvID = ProvID) at test-test.R:106:3
    2.   └─lme4::glmer(...)
    3.     └─lme4::optimizeGlmer(...)
    4.       └─lme4:::optwrap(...)
    5.         ├─base::withCallingHandlers(...)
    6.         ├─base::do.call(optfun, arglist)
    7.         └─lme4 (local) `<fn>`(...)
    8.           ├─nM$newf(fn(nM$xeval()))
    9.           │ └─base::stopifnot(length(value <- as.numeric(value)) == 1L)
   10.           └─lme4 (local) fn(nM$xeval())
   11.             └─lme4 (local) pwrssUpdate(...)
  ── Error ('test-test.R:129:3'): test.logis_cre function behaves correctly ──────
  <Rcpp::exception/C++Error/error/condition>
  Error: Downdated VtV is not positive definite
  Backtrace:
      ▆
   1. └─pprof::logis_cre(...) at test-test.R:129:3
   2.   └─lme4::glmer(...)
   3.     └─lme4::optimizeGlmer(...)
   4.       └─lme4:::optwrap(...)
   5.         └─lme4:::deriv12(fn, opt$par, fx = opt$value)
   6.           └─lme4 (local) fun(xas, ...)
   7.             └─lme4 (local) pwrssUpdate(...)
  
  [ FAIL 8 | WARN 0 | SKIP 0 | PASS 129 ]
  Error:
  ! Test failures.
  Execution halted