ggcoefstats supports car anova objects

eleakin · Sep 24, 2018 · d76b95d · d76b95d
1 parent abe083f
commit d76b95d
Show file tree

Hide file tree

Showing 30 changed files with 534 additions and 502 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -49,6 +49,7 @@ Imports:
     tidyr (>= 0.8.1),
     WRS2 (>= 0.10-0)
 Suggests:
+    car (>= 3.0-2),
     devtools,
     ggplot2movies,
     ggthemes (>= 4.0.0),

diff --git a/R/ggcoefstats.R b/R/ggcoefstats.R
@@ -134,7 +134,7 @@
 #' \url{https://cran.r-project.org/package=ggstatsplot/vignettes/ggcoefstats.html}
 #'
 #' @examples
-#' 
+#'
 #' set.seed(123)
 #' ggcoefstats(x = lm(formula = mpg ~ cyl * am, data = mtcars))
 #' @export
@@ -148,7 +148,7 @@ ggcoefstats <- function(x,
                         p.kr = TRUE,
                         coefficient.type = "beta",
                         effsize = "eta",
-                        nboot = 1000,
+                        nboot = 500,
                         point.color = "blue",
                         point.size = 3,
                         point.shape = 16,
@@ -209,7 +209,7 @@ ggcoefstats <- function(x,
   unsupported.mods <- c("glht", "kmeans")
 
   # models for which glance is not supported
-  noglance.mods <- c("aovlist")
+  noglance.mods <- c("aovlist", "anova")
 
   # models for which the diagnostics is not available (AIC, BIC, loglik)
   nodiagnostics.mods <- c("lmRob", "glmRob")
@@ -223,7 +223,7 @@ ggcoefstats <- function(x,
   z.mods <- c("clm", "clmm")
 
   # models for which statistic is F-value
-  f.mods <- c("aov", "aovlist")
+  f.mods <- c("aov", "aovlist", "anova")
 
   # models for which there is no clear t-or z-statistic
   # which statistic to use will be decided based on the family used

diff --git a/R/helpers_effsize_ci.R b/R/helpers_effsize_ci.R
@@ -637,7 +637,7 @@ robcor_ci <- function(data,
 #' @param conf.level Numeric specifying Level of confidence for the confidence
 #'   interval (Default: `0.95`).
 #' @param nboot Number of bootstrap samples for confidence intervals for partial
-#'   eta-squared and omega-squared (Default: `1000`).
+#'   eta-squared and omega-squared (Default: `500`).
 #'
 #' @importFrom sjstats eta_sq
 #' @importFrom sjstats omega_sq
@@ -656,12 +656,13 @@ lm_effsize_ci <-
              effsize = "eta",
              partial = TRUE,
              conf.level = 0.95,
-             nboot = 1000) {
+             nboot = 500) {
+
     # based on the class, get the tidy output using broom
     if (class(object)[[1]] == "lm") {
       aov_df <-
         broom::tidy(stats::anova(object = object))
-    } else if (class(object)[[1]] == "aov") {
+    } else if (class(object)[[1]] %in% c("aov", "anova")) {
       aov_df <- broom::tidy(x = object)
     } else if (class(object)[[1]] == "aovlist") {
       aov_df <- broom::tidy(x = object) %>%

diff --git a/docs/articles/combine_plots.html b/docs/articles/combine_plots.html
diff --git a/docs/articles/ggbetweenstats.html b/docs/articles/ggbetweenstats.html
diff --git a/docs/articles/ggcoefstats.html b/docs/articles/ggcoefstats.html
diff --git a/docs/articles/ggcoefstats_files/figure-html/aov-1.png b/docs/articles/ggcoefstats_files/figure-html/aov-1.png
diff --git a/docs/articles/ggcoefstats_files/figure-html/aov3-1.png b/docs/articles/ggcoefstats_files/figure-html/aov3-1.png
diff --git a/docs/articles/ggcoefstats_files/figure-html/aovlist-1.png b/docs/articles/ggcoefstats_files/figure-html/aovlist-1.png
diff --git a/docs/articles/ggcorrmat.html b/docs/articles/ggcorrmat.html
diff --git a/docs/articles/gghistostats.html b/docs/articles/gghistostats.html
diff --git a/docs/articles/gghistostats_files/figure-html/grouped1-1.png b/docs/articles/gghistostats_files/figure-html/grouped1-1.png
diff --git a/docs/articles/ggpiestats.html b/docs/articles/ggpiestats.html
diff --git a/docs/articles/ggscatterstats.html b/docs/articles/ggscatterstats.html
diff --git a/docs/articles/plot_design.html b/docs/articles/plot_design.html
diff --git a/docs/articles/purrr_examples.html b/docs/articles/purrr_examples.html
diff --git a/docs/articles/purrr_examples_files/figure-html/purrr_ggscatterstats-1.png b/docs/articles/purrr_examples_files/figure-html/purrr_ggscatterstats-1.png
diff --git a/docs/articles/theme_ggstatsplot.html b/docs/articles/theme_ggstatsplot.html