fix issues

easystats · Oct 1, 2023 · 7706b87 · 7706b87
1 parent 704d764
commit 7706b87
Show file tree

Hide file tree

Showing 6 changed files with 7 additions and 10 deletions.
diff --git a/R/map_estimate.R b/R/map_estimate.R
@@ -18,7 +18,7 @@
 #'   vector, this column is missing.
 #' - `MAP_Estimate`: The MAP estimate for the posterior or each model parameter.
 #'
-#' @examples
+#' @examplesIf require("rstanarm") && require("brms")
 #' \donttest{
 #' library(bayestestR)
 #'
@@ -28,11 +28,9 @@
 #' plot(density(posterior))
 #' abline(v = map_estimate(posterior), col = "red")
 #'
-#' library(rstanarm)
 #' model <- rstanarm::stan_glm(mpg ~ wt + cyl, data = mtcars)
 #' map_estimate(model)
 #'
-#' library(brms)
 #' model <- brms::brm(mpg ~ wt + cyl, data = mtcars)
 #' map_estimate(model)
 #' }

diff --git a/R/mediation.R b/R/mediation.R
@@ -94,7 +94,7 @@
 #' # Fit Bayesian mediation model in brms
 #' f1 <- bf(job_seek ~ treat + econ_hard + sex + age)
 #' f2 <- bf(depress2 ~ treat + job_seek + econ_hard + sex + age)
-#' m2 <- brm(f1 + f2 + set_rescor(FALSE), data = jobs, cores = 4, refresh = 0)
+#' m2 <- brm(f1 + f2 + set_rescor(FALSE), data = jobs, refresh = 0)
 #'
 #' # Fit Bayesian mediation model in rstanarm
 #' m3 <- suppressWarnings(stan_mvmer(

diff --git a/man/map_estimate.Rd b/man/map_estimate.Rd
diff --git a/man/mediation.Rd b/man/mediation.Rd
diff --git a/vignettes/mediation.Rmd b/vignettes/mediation.Rmd
@@ -70,7 +70,7 @@ m1 <- mediate(b1, b2, sims = 1000, treat = "treat", mediator = "job_seek")
 # Fit Bayesian mediation model in brms
 f1 <- bf(job_seek ~ treat + econ_hard + sex + age)
 f2 <- bf(depress2 ~ treat + job_seek + econ_hard + sex + age)
-m2 <- brm(f1 + f2 + set_rescor(FALSE), data = jobs, cores = 4)
+m2 <- brm(f1 + f2 + set_rescor(FALSE), data = jobs, refresh = 0)
 ```
 ```{r echo=FALSE}
 m2 <- insight::download_model("brms_mv_6")

diff --git a/vignettes/probability_of_direction.Rmd b/vignettes/probability_of_direction.Rmd
@@ -205,7 +205,7 @@ for (i in 1:25) {
   the_mean <- runif(1, 0, 4)
   the_sd <- abs(runif(1, 0.5, 4))
   parent_distribution <- rnorm(100000, the_mean, the_sd)
-  true_pd <- pd(parent_distribution)
+  true_pd <- as.numeric(pd(parent_distribution))
 
   for (j in 1:25) {
     sample_size <- round(runif(1, 25, 5000))