plot_EVPI_: Plot the Expected Value of Perfect Information (EVPI)
In W-Mohammed/ShinyPSA: What the Package Does (One Line, Title Case)

plot_EVPI_

R Documentation

Plot the Expected Value of Perfect Information (EVPI)

Description

Plot the Expected Value of Perfect Information (EVPI)

Usage

plot_EVPI_(.PSA_data, ...)

Arguments

.PSA_data

A list of class shinyPSA that contains summary PSA results.

...

Additional arguments that include: legend position .legend_pos = "bottom", willingness-to-pay threshold(s) .wtp_threshold = c(20000, 30000), show WTP threshold(s) lines .show_wtp = TRUE, show WTP threshold(s) labels .label_wtp = TRUE, plot individual EVPI .individual_evpi = TRUE, time horizon to estimate population EVPI .time_horion = 5, discount rate to estimate population EVPI .discount_rate = 0.035, population size for population EVPI .population = 15000, zoom to min/max values .zoom = FALSE, and zoom to supplied coordinates values .zoom_cords = NULL.

Value

An object of class ggplot.

Examples

## Not run: 
library(ShinyPSA)

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

p <- plot_EVPI_(PSA_summary,
               .legend_pos = NULL,
               .wtp_threshold = c(2000, 10000, 20000, 25000),
               .show_wtp = TRUE,
               .label_wtp = FALSE,
               .individual_evpi = FALSE,
               .time_horion = 1,
               .discount_rate = 0.035,
               .population = 15000,
               .zoom = FALSE,
               .zoom_cords = NULL)

p

## End(Not run)

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