Fix error in vignette

vignettes/parameters.Rmd

@@ -74,7 +74,7 @@
 data("qol_cancer")
 
 set.seed(12345)
 sleepstudy$grp <- sample(1:5, size = 180, replace = TRUE)
 
 theme_set(theme_modern())
 ```
@@ -234,14 +234,14 @@
 # We download the model to save computation time. Here is the code
 # to refit the exact model used below...
 
 # zinb <- read.csv("http://stats.idre.ucla.edu/stat/data/fish.csv")
 # set.seed(123)
 # model <- brm(bf(
 #     count ~ persons + child + camper + (1 | persons),
 #     zi ~ child + camper + (1 | persons)
 #   ),
 #   data = zinb,
 #   family = zero_inflated_poisson()
 # )
 brms_model <- insight::download_model("brms_zi_2")
 result <- model_parameters(
@@ -281,7 +281,7 @@
 ## Model Parameters of Meta-Analysis models
 
 ```{r}
-mydat <- data.frame(
+mydat <<- data.frame(
   effectsize = c(-0.393, 0.675, 0.282, -1.398),
   standarderror = c(0.317, 0.317, 0.13, 0.36)
 )
@@ -323,7 +323,8 @@
 )
 dat$author <- make.unique(dat$author)
 dat$disease <- sample(c("Cancer", "CVD", "Depression"), size = nrow(dat), replace = TRUE)
-model <- rma(yi, vi, mods = ~disease, data = dat, digits = 3, slab = author)
+mydat <<- dat
+model <- rma(yi, vi, mods = ~disease, data = mydat, digits = 3, slab = author)
 result <- model_parameters(model)
 
 result
@@ -413,16 +414,6 @@
 plot(result)
 ```
 
-### From simulated model parameters
-
-```{r fig.height=8}
-simulated_parameters <- simulate_model(model1, component = "conditional")
-result <- equivalence_test(simulated_parameters)
-result
-
-plot(result)
-```
-
 ## p-value function and consonance/compatibility plot
 
 _([related function documentation](https://easystats.github.io/parameters/reference/p_function.html))_

vignettes/performance.Rmd

@@ -72,7 +72,7 @@ plot(result)
 Example where model **is** a good fit.
 
 ```{r}
-model <- glm(am ~ mpg + vs + cyl, data = mtcars, family = "binomial")
+model <- suppressWarnings(glm(am ~ mpg + vs + cyl, data = mtcars, family = "binomial"))
 result <- binned_residuals(model)
 result
 
@@ -150,26 +150,35 @@ plot(result, type = "bars")
 _([related function documentation](https://easystats.github.io/performance/reference/check_normality.html))_
 
 ```{r}
-model <- lm(mpg ~ wt + cyl + gear + disp, data = mtcars)
-result <- check_normality(model)
+model2 <- lm(mpg ~ wt + cyl + gear + disp, data = mtcars)
+result2 <- check_normality(model2)
 ```
 
 ### Density Plot
 
-```{r}
-plot(result, type = "density")
+```{r echo=FALSE}
+plot(result2, type = "density", data = model2)
+```
+```{r eval=FALSE}
+plot(result2, type = "density")
 ```
 
 ### QQ Plot
 
-```{r}
-plot(result, type = "qq")
+```{r echo=FALSE}
+plot(result2, type = "qq", data = model2)
+```
+```{r eval=FALSE}
+plot(result2, type = "qq")
 ```
 
 ### PP Plot
 
-```{r}
-plot(result, type = "pp")
+```{r echo=FALSE}
+plot(result2, type = "pp", data = model2)
+```
+```{r eval=FALSE}
+plot(result2, type = "pp")
 ```
 
 ## Check for Normal Distributed Random Effects
@@ -199,7 +208,7 @@ _([related function documentation](https://easystats.github.io/performance/refer
 ```{r}
 model <- lm(len ~ supp + dose, data = ToothGrowth)
 result <- check_homogeneity(model)
-plot(result)
+suppressWarnings(plot(result))
 ```
 
 ## Posterior Predictive Checks