#389, #434

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: bayestestR
 Title: Understand and Describe Bayesian Models and Posterior Distributions
-Version: 0.13.1.4
+Version: 0.13.1.5
 Authors@R:
     c(person(given = "Dominique",
              family = "Makowski",

NAMESPACE

@@ -483,6 +483,7 @@ S3method(rope,stanreg)
 S3method(rope_range,data.frame)
 S3method(rope_range,default)
 S3method(rope_range,mlm)
+S3method(sensitivity_to_prior,default)
 S3method(sensitivity_to_prior,stanreg)
 S3method(sexit_thresholds,BFBayesFactor)
 S3method(sexit_thresholds,MixMod)

R/sensitivity_to_prior.R

@@ -15,34 +15,26 @@
 #'   standard deviations from its original location.
 #' @param ... Arguments passed to or from other methods.
 #'
-#' @examples
+#' @examplesIf require("rstanarm")
 #' \donttest{
 #' library(bayestestR)
 #'
 #' # rstanarm models
 #' # -----------------------------------------------
-#' if (require("rstanarm")) {
-#'   model <- rstanarm::stan_glm(mpg ~ wt, data = mtcars)
-#'   sensitivity_to_prior(model)
+#' model <- rstanarm::stan_glm(mpg ~ wt, data = mtcars)
+#' sensitivity_to_prior(model)
 #'
-#'   model <- rstanarm::stan_glm(mpg ~ wt + cyl, data = mtcars)
-#'   sensitivity_to_prior(model, index = c("Median", "MAP"))
-#' }
-#'
-#' # brms models
-#' # -----------------------------------------------
-#' if (require("brms")) {
-#'   model <- brms::brm(mpg ~ wt + cyl, data = mtcars)
-#'   # sensitivity_to_prior(model)
-#' }
+#' model <- rstanarm::stan_glm(mpg ~ wt + cyl, data = mtcars)
+#' sensitivity_to_prior(model, index = c("Median", "MAP"))
 #' }
 #' @seealso DescTools
 #' @export
-sensitivity_to_prior <- function(model, index = "Median", magnitude = 10, ...) {
+sensitivity_to_prior <- function(model, ...) {
   UseMethod("sensitivity_to_prior")
 }
 
 
+#' @rdname sensitivity_to_prior
 #' @export
 sensitivity_to_prior.stanreg <- function(model, index = "Median", magnitude = 10, ...) {
   # Original
@@ -68,7 +60,10 @@ sensitivity_to_prior.stanreg <- function(model, index = "Median", magnitude = 10
 }
 
 
-
+#' @export
+sensitivity_to_prior.default <- function(model, ...) {
+  insight::format_error(sprintf("Models of class '%s' are not yet supported.", class(model)[1]))
+}
 
 
 #' @keywords internal