Nothing
#
eib_params_ggplot <- function(he,
graph_params,
cri_params,
...) {
graph_params <- helper_ggplot_params(he, graph_params)
##TODO: remove duplication with base
ylim <-
if (!cri_params$plot.cri) {
range(c(he$eib))
} else {
range(c(he$eib),
cri_params$data)
}
default_params <-
list(
size = rel(3.5),
kstar = list(
geom = "text",
label = paste0("k* = ", format(he$kstar, digits = 6)),
x = he$kstar,
y = min(ylim),
hjust = ifelse((max(he$k) - he$kstar)/max(he$k) > 1/6,
yes = -0.1,
no = 1.1),
vjust = 1),
cri = list(
lwd = ifelse(!graph_params$plot.cri, 0.5, 0.75),
show.legend = FALSE),
currency = "")
modifyList(default_params,
graph_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.