R Under development (unstable) (2026-01-06 r89281 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # 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(dynamicpv)
> 
> # Generate a demonstration heemod model
> # source("R/demo.R")
> 
> # Run tests
> test_check("dynamicpv")
Summary of Dynamic Pricing and Uptake
     Number of cohorts:             1044 
     Number of times:               1 
     Total uptake:                  1 
     Total present value:           30005.46 
     Mean present value:            30005.46 
Summary of Dynamic Pricing and Uptake
     Number of cohorts:             1044 
     Number of times:               1 
     Total uptake:                  2 
     Total present value:           24761425 
     Mean present value:            12380712 
Summary of Dynamic Pricing and Uptake
     Number of cohorts:             1044 
     Number of times:               1 
     Total uptake:                  3 
     Total present value:           24791430 
     Mean present value:            8263810 
Summary of Dynamic Pricing and Uptake
     Number of cohorts:             1044 
     Number of times:               1 
     Total uptake:                  -1 
     Total present value:           -24731419 
     Mean present value:            24731419 
Summary of Dynamic Pricing and Uptake
     Number of cohorts:             1044 
     Number of times:               5 
     Total uptake:                  1044 

 Total and mean present values by timepoint: 
# A tibble: 5 x 3
  tzero         total       mean
  <dbl>         <dbl>      <dbl>
1     0 109469856194. 104856184.
2    52 183656364971. 175916058.
3   104 308118248868. 295132422.
4   156 516926572627. 495140395.
5   208 867241984106. 830691556.
Summary of Dynamic Pricing and Uptake
     Number of cohorts:             522 
     Number of times:               1 
     Total uptake:                  1 
     Total present value:           47810.41 
     Mean present value:            47810.41 
Summary of Dynamic Pricing and Uptake
     Number of cohorts:             1044 
     Number of times:               10 
     Total uptake:                  1 

 Total and mean present values by timepoint: 
# A tibble: 10 x 3
   tzero  total   mean
   <int>  <dbl>  <dbl>
 1     0 52160. 52160.
 2     1 52160. 52160.
 3     2 52160. 52160.
 4     3 52160. 52160.
 5     4 52160. 52160.
 6     5 52160. 52160.
 7     6 52160. 52160.
 8     7 52160. 52160.
 9     8 52160. 52160.
10     9 52160. 52160.
[ FAIL 0 | WARN 0 | SKIP 0 | PASS 32 ]
> 
> proc.time()
   user  system elapsed 
   6.21    1.40    7.26