Nothing
#' @keywords dplot
#'
prepare_ceac_params <- function(he, ...) {
extra_params <- list(...)
# defaults
plot_params <- list(area = list(include = FALSE,
color = NULL),
line = list(color = "black",
size = 1,
type = 1:num_lines(he)),
currency = "")
annot_params <- list(title = "Cost Effectiveness Acceptability Curve",
x = "Willingness to pay",
y = "Probability of cost effectiveness")
plot_extra_params <- extra_params[c("area", "line", "currency")]
annot_extra_params <- extra_params[c("title", "xlab", "ylab")]
annot_params <- modifyList(annot_params, annot_extra_params)
plot_params <- modifyList(plot_params, plot_extra_params)
c(plot_params,
list(annot = annot_params))
}
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.