CRAN RC: 0.8.3 (#332)

* CRAN RC: 0.8.3

* update snapshots

* suppress stan glm messages

* Update WORDLIST

* no need to run examples conditional on hard deps

* another one

* add test for ROC function

* slightly increase point size

* update snapshots

* get rid of warnings about deprecated arg

* fix example

* fix remaining examples

* fix example

* another example to fix

* fix example

* fix example

* downgrade ggplot2 version

---------

Co-authored-by: Daniel <mail@danielluedecke.de>

Author: IndrajeetPatil

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: see
 Title: Model Visualisation Toolbox for 'easystats' and 'ggplot2'
-Version: 0.8.2.7
+Version: 0.8.3
 Authors@R: 
     c(person(given = "Daniel",
              family = "Lüdecke",
@@ -67,11 +67,11 @@ Imports:
     correlation (>= 0.8.4),
     datawizard (>= 0.9.1),
     effectsize (>= 0.8.6),
-    ggplot2 (>= 3.4.0),
-    insight (>= 0.19.8),
+    ggplot2 (>= 3.4.4),
+    insight (>= 0.19.10),
     modelbased (>= 0.8.7),
-    parameters (>= 0.21.5),
-    performance (>= 0.10.9)
+    parameters (>= 0.21.6),
+    performance (>= 0.11.0)
 Suggests:
     brms,
     curl,
@@ -119,4 +119,3 @@ Config/Needs/website:
     r-lib/pkgdown,
     easystats/easystatstemplate
 Config/rcmdcheck/ignore-inconsequential-notes: true
-Remotes: easystats/performance

NEWS.md

@@ -1,4 +1,4 @@
-# see (development version)
+# see 0.8.3
 
 ## Major changes
 

R/coord_radar.R

@@ -5,11 +5,13 @@
 #' @inheritParams ggplot2::coord_polar
 #' @param ... Other arguments to be passed to `ggproto`.
 #'
-#' @examplesIf require("datawizard") && require("ggplot2")
+#' @examples
+#' library(ggplot2)
+#'
 #' # Create a radar/spider chart with ggplot:
 #' data(iris)
 #' data <- aggregate(iris[-5], list(Species = iris$Species), mean)
-#' data <- data_to_long(
+#' data <- datawizard::data_to_long(
 #'   data,
 #'   c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width")
 #' )

R/data_plot.R

@@ -103,10 +103,10 @@ data_plot <- function(x, ...) {
 #' model <- suppressWarnings(stan_glm(
 #'   Sepal.Length ~ Petal.Width + Species + Sepal.Width,
 #'   data = iris,
-#'   chains = 2, iter = 200
+#'   chains = 2, iter = 200, refresh = 0
 #' ))
 #'
-#' result <- hdi(model, ci = c(0.5, 0.75, 0.9, 0.95))
+#' result <- bayestestR::hdi(model, ci = c(0.5, 0.75, 0.9, 0.95))
 #' data <- data_plot(result, data = model)
 #'
 #' p <- ggplot(

R/plot.check_heteroscedasticity.R

@@ -9,9 +9,9 @@
 #'
 #' @seealso See also the vignette about [`check_model()`](https://easystats.github.io/performance/articles/check_model.html).
 #'
-#' @examplesIf require("performance")
+#' @examples
 #' m <- lm(mpg ~ wt + cyl + gear + disp, data = mtcars)
-#' result <- check_heteroscedasticity(m)
+#' result <- performance::check_heteroscedasticity(m)
 #' result
 #' plot(result, data = m) # data required for pkgdown
 #' @export

R/plot.check_homogeneity.R

@@ -7,7 +7,9 @@
 #'
 #' @return A ggplot2-object.
 #'
-#' @examplesIf require("performance")
+#' @examples
+#' library(performance)
+#'
 #' model <<- lm(len ~ supp + dose, data = ToothGrowth)
 #' result <- check_homogeneity(model)
 #' result

R/plot.check_model.R

@@ -11,7 +11,9 @@
 #'
 #' @seealso See also the vignette about [`check_model()`](https://easystats.github.io/performance/articles/check_model.html).
 #'
-#' @examplesIf require("performance") && require("patchwork")
+#' @examplesIf require("patchwork")
+#' library(performance)
+#'
 #' model <- lm(qsec ~ drat + wt, data = mtcars)
 #' plot(check_model(model))
 #'
@@ -177,7 +179,6 @@ plot.see_check_model <- function(x,
         colors = colors,
         detrend = detrend,
         style = style
-
       )
     } else {
       p$QQ <- .plot_diag_qq(

R/plot.check_normality.R

@@ -26,20 +26,22 @@
 #'
 #' @seealso See also the vignette about [`check_model()`](https://easystats.github.io/performance/articles/check_model.html).
 #'
-#' @examplesIf require("performance")
+#' @examples
+#' library(performance)
+#'
 #' m <<- lm(mpg ~ wt + cyl + gear + disp, data = mtcars)
 #' result <- check_normality(m)
 #' plot(result)
 #'
-#' @examplesIf require("performance") && require("qqplotr")
+#' @examplesIf require("qqplotr")
 #' plot(result, type = "qq", detrend = TRUE)
 #'
 #' @export
 plot.see_check_normality <- function(x,
                                      type = c("qq", "pp", "density"),
                                      data = NULL,
                                      size_line = 0.8,
-                                     size_point = 1.5,
+                                     size_point = 2,
                                      alpha = 0.2,
                                      dot_alpha = 0.8,
                                      colors = c("#3aaf85", "#1b6ca8"),

R/plot.check_predictions.R

@@ -55,7 +55,9 @@ data_plot.performance_pp_check <- function(x, type = "density", ...) {
 #'
 #' @seealso See also the vignette about [`check_model()`](https://easystats.github.io/performance/articles/check_model.html).
 #'
-#' @examplesIf require("performance")
+#' @examples
+#' library(performance)
+#'
 #' model <- lm(Sepal.Length ~ Species * Petal.Width + Petal.Length, data = iris)
 #' check_predictions(model)
 #'

R/plot.compare_parameters.R

@@ -14,12 +14,12 @@
 #'
 #' @return A ggplot2-object.
 #'
-#' @examplesIf require("insight") && require("parameters")
+#' @examples
 #' data(iris)
 #' lm1 <- lm(Sepal.Length ~ Species, data = iris)
 #' lm2 <- lm(Sepal.Length ~ Species + Petal.Length, data = iris)
 #' lm3 <- lm(Sepal.Length ~ Species * Petal.Length, data = iris)
-#' result <- compare_parameters(lm1, lm2, lm3)
+#' result <- parameters::compare_parameters(lm1, lm2, lm3)
 #' plot(result)
 #' @export
 plot.see_compare_parameters <- function(x,