Nothing
#' Plot Credible Intervals
#'
#' Bayesian posterior credible intervals against willingness to pay.
#' @template args-he
#' @param params Graph parameters
#' @importFrom graphics matlines
#' @keywords internal
#'
plot_eib_cri <- function(he, params) {
if (!params$plot.cri) return()
##TODO: move y rearranging to compute_eib_cri()
##TODO: single do.call() on combined y matrix
do.call(matlines,
list(x = he$k,
y = matrix(params$data$low,
ncol = he$n_comparisons),
col = params$col,
lty = params$lty))
do.call(matlines,
list(x = he$k,
y = matrix(params$data$upp,
ncol = he$n_comparisons),
col = params$col,
lty = params$lty))
}
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.