plot_CEplane_: Plot Cost Effectiveness Plane (CEP).

View source: R/plot_CEplane_.R

plot_CEplane_R Documentation

Plot Cost Effectiveness Plane (CEP).

Description

Plot Cost Effectiveness Plane (CEP).

Usage

plot_CEplane_(.PSA_data, ...)

Arguments

.PSA_data

A list of class shinyPSA that contains summary PSA results.

...

Additional arguments that include: reference intervention .ref = NULL rescales interventions on CEP, legend position .legend_pos = c(0.8, 0.2), show ICER information .show_ICER' = TRUE}, nudge ICER labels \code{.nudge_labels' = c(NULL, NULL), willingness-to-pay threshold(s) .wtp_threshold = c(20000, 30000), show WTP threshold(s) lines and labels .show_wtp = TRUE, and seed number to set .seed_no = 1.

Value

An object of class ggplot.

Examples

## Not run: 
library(ShinyPSA)

PSA_summary <- summarise_PSA_(
  .effs = as_tibble(ShinyPSA::Vaccine_PSA$e),
  .costs = as_tibble(ShinyPSA::Vaccine_PSA$c),
  .interventions = ShinyPSA::Vaccine_PSA$treats)

p <- plot_CEplane_(PSA_summary,
                 .ref = 1,
                 .show_ICER = TRUE,
                 .legend_pos = c(0.8, 0.2),
                 .show_wtp = FALSE,
                 .zoom = T,
                 .wtp_threshold = c(200),
                 tst = "PRINT", # this will be ignored
                 .nudge_labels = c(0.1, -0.1),
                 .zoom_cords = c(-0.001, 0.001, -5, 5)))

p

## End(Not run)


W-Mohammed/ShinyPSA documentation built on April 24, 2022, 6:57 p.m.