R Under development (unstable) (2025-09-11 r88813 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 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.

> library(testthat)
> library(ausoa)
Loading required package: data.table
Loading required package: dplyr

Attaching package: 'dplyr'

The following objects are masked from 'package:data.table':

    between, first, last

The following object is masked from 'package:testthat':

    matches

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

Loading required package: forcats
Loading required package: ggplot2
Loading required package: here
here() starts at D:/RCompile/CRANincoming
Loading required package: magrittr

Attaching package: 'magrittr'

The following objects are masked from 'package:testthat':

    equals, is_less_than, not

Loading required package: purrr

Attaching package: 'purrr'

The following object is masked from 'package:magrittr':

    set_names

The following object is masked from 'package:data.table':

    transpose

The following object is masked from 'package:testthat':

    is_null

Loading required package: ragg
Loading required package: readr

Attaching package: 'readr'

The following objects are masked from 'package:testthat':

    edition_get, local_edition

Loading required package: rlang

Attaching package: 'rlang'

The following objects are masked from 'package:purrr':

    %@%, flatten, flatten_chr, flatten_dbl, flatten_int, flatten_lgl,
    flatten_raw, invoke, splice

The following object is masked from 'package:magrittr':

    set_names

The following object is masked from 'package:data.table':

    :=

The following objects are masked from 'package:testthat':

    is_false, is_null, is_true

Loading required package: scales

Attaching package: 'scales'

The following object is masked from 'package:readr':

    col_factor

The following object is masked from 'package:purrr':

    discard

Loading required package: tidyr

Attaching package: 'tidyr'

The following object is masked from 'package:magrittr':

    extract

The following object is masked from 'package:testthat':

    matches

Loading required package: yaml
> 
> test_check("ausoa", edition = 3)
Applying intervention: weight_loss in year 2025 
Applying intervention: pain_clinic in year 2026 
Applying intervention: exercise_program in year 2028 
Applying intervention: weight_loss in year 2025 
Applying intervention: weight_loss in year 2025 
Applying intervention: exercise_program in year 2025 
Applying intervention: bad_intervention in year 2025 
Applying intervention: bmi_reduction in year 2025 
Applying intervention: qaly_increase in year 2025 
Applying intervention: tka_risk_reduction in year 2025 
Applying intervention: bmi_reduction in year 2025 
Applying intervention: qaly_increase in year 2025 
[1] "Prob_KL2:"
[1] 0.4
[1] "Prob_KL3:"
[1] 0.3
[1] "Prob_KL2:"
[1] 0.4
[1] "Prob_KL3:"
[1] 0.3
[1] "Prob_KL2:"
[1] 0.4
[1] "Prob_KL3:"
[1] 0.3
[1] "Prob_KL2:"
[1] 0.4
[1] "Prob_KL3:"
[1] 0.3
[1] "Prob_KL2:"
[1] 0.4
[1] "Prob_KL3:"
[1] 0.3
> proc.time()
   user  system elapsed 
   2.60    0.37    2.98