R/ceplane_base_params.R

In giabaio/BCEA: Bayesian Cost Effectiveness Analysis

#' @keywords dplot
#' 
ceplane_base_params <- function(he,
                                wtp,
                                graph_params) {
  
  c(list(
    setup = setup_params(graph_params),
    points = points_params(graph_params),
    polygon = polygon_params(graph_params, wtp),
    k_txt = k_text(graph_params, wtp),
    wtp = wtp,
    ref_first = graph_params$ref_first),
    icer_params(graph_params, he))
}


#' @keywords dplot
#' 
contour_base_params <- function(he,
                                graph_params) {

  c(list(
    setup = setup_params(graph_params),
    points = points_params(graph_params),
    quadrants = quadrant_params(he, graph_params),
    scale = graph_params$scale,
    levels = graph_params$levels,
    contour = graph_params$contour,
    nlevels = graph_params$nlevels,
    ref_first = graph_params$ref_first),
    icer_params(graph_params, he))
}