swh:1:snp:2c68a6c5a8af2f06ac2c0225927f25b54fd1f9d0
Tip revision: 428249f43a9c6fd0c425b28deb5fee51a9525d69 authored by Dominique Makowski on 18 September 2022, 01:46:03 UTC
version 0.13.0
version 0.13.0
Tip revision: 428249f
plot.R
#' @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 {
warning(insight::format_message("Could not find model-object. Try ' plot(estimate_density(model))' instead."), call. = FALSE)
}
}