Running 'testthat.R' [68s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(heemod)
  > 
  > test_check("heemod")
  I: detected use of 'state_time', expanding states: A, B.
  I: detected use of 'state_time', expanding states: A, B.
  I: detected use of 'state_time', expanding states: A, B.
  I: detected use of 'state_time', expanding states: A, B.
  I: detected use of 'state_time', expanding states: A, B.
  I: detected use of 'state_time', expanding state: A.
  I: detected use of 'state_time', expanding state: B.
  I: detected use of 'state_time', expanding state: C.
  Updating strategy 'I'...
  Updating strategy 'II'...
  Updating strategy 'I'...
  Updating strategy 'II'...
  No weights specified in update, using equal weights.
  Updating strategy 'I'...
  Updating strategy 'II'...
  Loading required namespace: diagram
  I: detected use of 'state_time', expanding state: A.
  I: detected use of 'state_time', expanding state: A.
  Updating strategy 'standard'...
  Updating strategy 'new'...
  Updating strategy 'standard'...
  Updating strategy 'new'...
  Cluster closed.
  Loading required package: survival
  Resampling strategy 'I'...
  Resampling strategy 'II'...
  Resampling strategy 'I'...
  Resampling strategy 'II'...
  Resampling strategy 'I'...
  Resampling strategy 'II'...
  Loading required namespace: logitnorm
  I: detected use of 'state_time', expanding state: X2.
  II: detected use of 'state_time', expanding state: X2.
  Resampling strategy 'I'...
  Resampling strategy 'II'...
  `dplyr::filter(bc, group == "Good")` is a complex expression. If you need to
  perform PSA, please make sure the data.frame does not include the package
  environment, i.e. is not preceded by `::`.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  Resampling strategy 'I'...
  Resampling strategy 'I'...
  Resampling strategy 'I'...
  Resampling strategy 'II'...
  Resampling strategy 'I'...
  Resampling strategy 'I'...
  No covariates provided, returning aggregate survival across all subjects.
  Resampling strategy 'I'...
  Resampling strategy 'I'...
  `km_2` must be a <surv_fit>
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  Resampling strategy 'I'...
  Resampling strategy 'II'...
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  No covariates provided, returning aggregate survival across all subjects.
  Resampling strategy 'I'...
  Resampling strategy 'standard'...
  Resampling strategy 'new'...
  Updating strategy 'standard'...
  Updating strategy 'new'...
  [ FAIL 11 | WARN 0 | SKIP 1 | PASS 503 ]
  
  ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
  • empty test (1): 'test_starting_values.R:200:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test_heterogeneity.R:63:5'): Demographic analysis ─────────────────
  round(summary_update$summary_results$Min.[1]) (`actual`) not equal to 24044 (`expected`).
  
    `actual`: 34644
  `expected`: 24044
  ── Failure ('test_heterogeneity.R:149:5'): Heterogeneity analysis ──────────────
  round(summary_update$summary_results$Min.)[1] (`actual`) not equal to 2404 (`expected`).
  
    `actual`: 3464
  `expected`: 2404
  ── Failure ('test_probabilistic.R:121:5'): Probabilistic analysis works ────────
  round(ndt2$psa$.cost) (`actual`) not equal to c(10653, 38163) (`expected`).
  
    `actual`: 11229 34644
  `expected`: 10653 38163
  ── Failure ('test_probabilistic.R:125:5'): Probabilistic analysis works ────────
  round(summary(ndt2)$res_comp$.cost[2]) (`actual`) not equal to 27511 (`expected`).
  
    `actual`: 23415
  `expected`: 27511
  ── Failure ('test_probabilistic.R:148:5'): Probabilistic analysis works ────────
  round(ndt1$psa$.cost)[1:3] (`actual`) not equal to c(12515, 10923, 13662) (`expected`).
  
    `actual`: 11229 11229 11229
  `expected`: 12515 10923 13662
  ── Failure ('test_probabilistic.R:152:5'): Probabilistic analysis works ────────
  round(summary(ndt1)$res_comp$.cost[2]) (`actual`) not equal to 25085 (`expected`).
  
    `actual`: 23415
  `expected`: 25085
  ── Failure ('test_sensitivity.R:106:5'): run sensitivity ───────────────────────
  round(x$dsa$.cost) (`actual`) not equal to c(514389, 451356, 703168, 514069, 456666, 475359, 529998, 586078) (`expected`).
  
    `actual`: 467112 467112 561337 561337 467112 467112 561337 561337
  `expected`: 514389 451356 703168 514069 456666 475359 529998 586078
  ── Failure ('test_sensitivity.R:116:5'): run sensitivity ───────────────────────
  round(sx$res_comp$.cost) (`actual`) not equal to c(0, 1888, 0, 627, 0, 733, 0, 1107) (`expected`).
  
    `actual`: 0  942 0 942 0 942 0  942
  `expected`: 0 1888 0 627 0 733 0 1107
  ── Failure ('test_sensitivity.R:183:5'): discount rate as a parameter works ────
  round(x$res_comp$.icer) (`actual`) not identical to `.icer` (`expected`).
  
    `actual`: NA  978 NA 978 NA 978 NA  978 NA 978 and 2 more...
  `expected`: NA 3988 NA 668 NA 761 NA 1195 NA 978           ...
  ── Failure ('test_sensitivity.R:246:5'): sensitivity expression inputs ─────────
  round(x$res_comp$.icer) (`actual`) not identical to `.icer` (`expected`).
  
    `actual`: NA  978 NA 978 NA  978 NA  978 NA 978 and 2 more...
  `expected`: NA 3988 NA 668 NA 1634 NA 1086 NA 978           ...
  ── Failure ('test_surv_psa.R:429:5'): modifiers work with a variable name ──────
  sd(resPSA$psa$cost) is not strictly more than 0. Difference: 0
  
  [ FAIL 11 | WARN 0 | SKIP 1 | PASS 503 ]
  Error: Test failures
  Execution halted