R Under development (unstable) (2025-11-13 r89017 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(dcurves)
> 
> test_check("dcurves")
Starting 2 test processes.
> test-plot.R: # ggplot2 code to create DCA figure -------------------------------
> test-plot.R: as_tibble(x) %>%

> test-plot.R:   dplyr::filter(!is.na(net_intervention_avoided)) %>%

> test-plot.R:   ggplot(aes(x = threshold, y = net_intervention_avoided, color = label)) +

> test-plot.R:   geom_line() +

> test-plot.R:   coord_cartesian(ylim = c(0, 1)) +

> test-plot.R:   scale_x_continuous(labels = scales::percent_format(accuracy = 1)) +

> test-plot.R:   labs(x = "Threshold Probability", y = "Net reduction in interventions", 

> test-plot.R:     color = "") +

> test-plot.R:   theme_bw()
> test-dca.R: Assuming '1' is [Event] and '0' is [non-Event]
[ FAIL 0 | WARN 0 | SKIP 0 | PASS 45 ]
> 
> proc.time()
   user  system elapsed 
    1.9     0.4     9.0