Nothing
#' Prepare K-star vertical lines
#'
#' @template args-he
#' @param plot_params Plots parameters
#' @keywords internal
#'
kstar_vlines <- function(he, plot_params) {
if (length(he$kstar) > 0) {
abline(v = he$kstar,
col = "dark grey",
lty = "dotted")
text(x = he$kstar,
y = min(plot_params$ylim),
paste("k* = ", he$kstar , sep = ""))
}
}
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.