## create the bcea object for the smoking cessation example
data(Smoking)
m <- bcea(e, c, ref = 4, Kmax = 500, interventions = treats)
## produce the base plot
ceplane.plot(m, wtp = 200, graph = "base")
## select only one comparator
ceplane.plot(m, wtp = 200, graph = "base", comparison = 3)
## use ggplot2
if (requireNamespace("ggplot2")) {
ceplane.plot(m, wtp = 200, pos = "right", ICER_size = 2, graph = "ggplot2")
}
## plotly
ceplane.plot(m, wtp = 200, graph = "plotly")
ceplane.plot(m, wtp = 200, comparison = 1, graph = "plotly")
Run the code above in your browser using DataLab