#' @export
plot.equivalence_test <- function(x, ...) {
insight::check_if_installed("see", "to plot results from equivalence-test")
NextMethod()
}
#' @export
plot.p_direction <- function(x, ...) {
insight::check_if_installed("see", "to plot results from p_direction()")
NextMethod()
}
#' @export
plot.point_estimate <- function(x, ...) {
insight::check_if_installed("see", "to plot point-estimates")
NextMethod()
}
#' @export
plot.map_estimate <- function(x, ...) {
insight::check_if_installed("see", "to plot point-estimates")
NextMethod()
}
#' @export
plot.rope <- function(x, ...) {
insight::check_if_installed("see", "to plot ROPE")
NextMethod()
}
#' @export
plot.bayestestR_hdi <- function(x, ...) {
insight::check_if_installed("see", "to plot HDI")
NextMethod()
}
#' @export
plot.bayestestR_eti <- function(x, ...) {
insight::check_if_installed("see", "to plot credible intervals")
NextMethod()
}
#' @export
plot.bayestestR_si <- function(x, ...) {
insight::check_if_installed("see", "to plot support intervals")
NextMethod()
}
#' @export
plot.bayesfactor_parameters <- function(x, ...) {
insight::check_if_installed("see", "to plot Savage-Dickey Bayes factor")
NextMethod()
}
#' @export
plot.bayesfactor_models <- function(x, ...) {
insight::check_if_installed("see", "to plot models' Bayes factors")
NextMethod()
}
#' @export
plot.estimate_density <- function(x, ...) {
insight::check_if_installed("see", "to plot densities")
NextMethod()
}
#' @export
plot.estimate_density_df <- function(x, ...) {
insight::check_if_installed("see", "to plot models' densities")
NextMethod()
}
#' @export
plot.p_significance <- function(x, ...) {
insight::check_if_installed("see", "to plot practical significance")
NextMethod()
}
#' @export
plot.describe_posterior <- function(x, stack = FALSE, ...) {
insight::check_if_installed("see", "to plot posterior samples")
insight::check_if_installed("ggplot2", "to plot posterior samples")
model <- .retrieve_model(x)
if (!is.null(model)) {
graphics::plot(estimate_density(model), stack = stack, ...) +
ggplot2::labs(title = "Posterior Samples", x = NULL, y = NULL)
} else {
insight::format_alert("Could not find model-object. Try `plot(estimate_density(model))` instead.")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.