Revision 092b63c552bdf3196413c25583520dc23033769b authored by Dominique Makowski on 30 October 2021, 13:00:02 UTC, committed by cran-robot on 30 October 2021, 13:00:02 UTC
1 parent 68a979e
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)) {
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)
}
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...