Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup, warning=FALSE, message=FALSE--------------------------------------
library(BCEA)
## -----------------------------------------------------------------------------
data(Smoking)
## -----------------------------------------------------------------------------
treats <- c("No intervention", "Self-help", "Individual counselling", "Group counselling")
## -----------------------------------------------------------------------------
bcea_smoke <- bcea(eff, cost, ref = 4, interventions = treats, Kmax = 500)
## ----fig.width=10, fig.height=10----------------------------------------------
library(ggplot2)
library(purrr)
plot(bcea_smoke)
## -----------------------------------------------------------------------------
ceplane.plot(bcea_smoke, comparison = 2, wtp = 250)
eib.plot(bcea_smoke)
contour(bcea_smoke)
ceac.plot(bcea_smoke)
ib.plot(bcea_smoke)
## -----------------------------------------------------------------------------
plot(bcea_smoke,
graph = "ggplot2",
wtp = 250,
line = list(color = "red", size = 1),
point = list(color = c("plum", "tomato", "springgreen"), shape = 3:5, size = 2),
icer = list(color = c("red", "orange", "black"), size = 5))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.