Merge pull request #119 from strengejacke/mann_whitney

Mann_whitney

.lintr

@@ -0,0 +1,17 @@
+linters: linters_with_defaults(
+    absolute_path_linter = NULL,
+    commented_code_linter = NULL,
+    cyclocomp_linter = cyclocomp_linter(25),
+    extraction_operator_linter = NULL,
+    implicit_integer_linter = NULL,
+    line_length_linter(120),
+    namespace_linter = NULL,
+    nonportable_path_linter = NULL,
+    object_name_linter = NULL,
+    object_length_linter(50),
+    object_usage_linter = NULL,
+    todo_comment_linter = NULL,
+    undesirable_function_linter(c("mapply" = NA, "sapply" = NA, "setwd" = NA)),
+    undesirable_operator_linter = NULL,
+    defaults = linters_with_tags(tags = NULL)
+  )

DESCRIPTION

@@ -19,11 +19,9 @@ Depends:
     utils
 Imports:
     bayestestR,
-    broom,
     datawizard,
     dplyr,
     effectsize,
-    emmeans,
     insight,
     lme4,
     magrittr,
@@ -39,6 +37,7 @@ Imports:
     tidyr
 Suggests:
     brms,
+    broom,
     car,
     coin,
     ggplot2,

NAMESPACE

@@ -3,18 +3,16 @@
 S3method(AIC,svyglm.nb)
 S3method(as.data.frame,sj_resample)
 S3method(as.integer,sj_resample)
-S3method(cramer,formula)
-S3method(cramer,ftable)
-S3method(cramer,table)
+S3method(cramers_v,formula)
+S3method(cramers_v,ftable)
+S3method(cramers_v,table)
 S3method(deviance,svyglm.nb)
 S3method(family,svyglm.nb)
 S3method(formula,svyglm.nb)
 S3method(formula,svyglm.zip)
 S3method(model.frame,svyglm.nb)
 S3method(model.frame,svyglm.zip)
 S3method(model.matrix,gls)
-S3method(mwu,default)
-S3method(mwu,formula)
 S3method(phi,formula)
 S3method(phi,ftable)
 S3method(phi,table)
@@ -25,6 +23,9 @@ S3method(print,sj_check_assump)
 S3method(print,sj_chi2gof)
 S3method(print,sj_grpmean)
 S3method(print,sj_grpmeans)
+S3method(print,sj_htest_chi)
+S3method(print,sj_htest_kw)
+S3method(print,sj_htest_mwu)
 S3method(print,sj_mwu)
 S3method(print,sj_outliers)
 S3method(print,sj_pval)
@@ -40,8 +41,6 @@ S3method(print,tidy_stan)
 S3method(residuals,svyglm.nb)
 S3method(summary,sj_pval)
 S3method(terms,svyglm.nb)
-S3method(weighted_chisqtest,default)
-S3method(weighted_chisqtest,formula)
 S3method(weighted_correlation,default)
 S3method(weighted_correlation,formula)
 S3method(weighted_mannwhitney,default)
@@ -66,10 +65,12 @@ export(boot_est)
 export(boot_p)
 export(boot_se)
 export(bootstrap)
+export(chi_squared_test)
 export(chisq_gof)
 export(ci)
 export(cohens_f)
 export(cramer)
+export(cramers_v)
 export(crosstable_statistics)
 export(cv)
 export(cv_compare)
@@ -83,16 +84,15 @@ export(find_beta2)
 export(find_cauchy)
 export(find_normal)
 export(gmd)
-export(grpmean)
 export(icc)
 export(inequ_trend)
 export(is_prime)
+export(kruskal_wallis_test)
 export(link_inverse)
-export(mannwhitney)
+export(mann_whitney_test)
 export(mean_n)
 export(means_by_group)
 export(mse)
-export(mwu)
 export(omega_sq)
 export(p_value)
 export(phi)
@@ -115,7 +115,6 @@ export(typical_value)
 export(var_pop)
 export(weight)
 export(weight2)
-export(weighted_chisqtest)
 export(weighted_correlation)
 export(weighted_mannwhitney)
 export(weighted_mean)
@@ -129,19 +128,14 @@ export(xtab_statistics)
 importFrom(MASS,glm.nb)
 importFrom(bayestestR,ci)
 importFrom(bayestestR,equivalence_test)
-importFrom(broom,augment)
 importFrom(dplyr,case_when)
 importFrom(dplyr,filter)
 importFrom(dplyr,group_vars)
 importFrom(dplyr,mutate)
-importFrom(dplyr,n_distinct)
-importFrom(dplyr,pull)
 importFrom(dplyr,quos)
 importFrom(dplyr,select)
 importFrom(dplyr,select_if)
 importFrom(dplyr,summarise)
-importFrom(emmeans,contrast)
-importFrom(emmeans,emmeans)
 importFrom(insight,export_table)
 importFrom(insight,find_formula)
 importFrom(insight,find_response)
@@ -159,7 +153,6 @@ importFrom(performance,rmse)
 importFrom(purrr,flatten_df)
 importFrom(purrr,map)
 importFrom(purrr,map2)
-importFrom(purrr,map_chr)
 importFrom(purrr,map_dbl)
 importFrom(purrr,map_df)
 importFrom(purrr,map_lgl)
@@ -168,19 +161,12 @@ importFrom(rlang,.data)
 importFrom(rlang,enquo)
 importFrom(rlang,quo_name)
 importFrom(sjlabelled,as_numeric)
-importFrom(sjlabelled,drop_labels)
-importFrom(sjlabelled,get_label)
-importFrom(sjlabelled,get_labels)
-importFrom(sjmisc,add_variables)
 importFrom(sjmisc,is_empty)
 importFrom(sjmisc,is_float)
 importFrom(sjmisc,is_num_fac)
-importFrom(sjmisc,recode_to)
 importFrom(sjmisc,str_contains)
-importFrom(sjmisc,to_value)
 importFrom(sjmisc,trim)
 importFrom(sjmisc,typical_value)
-importFrom(stats,approx)
 importFrom(stats,as.formula)
 importFrom(stats,chisq.test)
 importFrom(stats,coef)
@@ -196,12 +182,10 @@ importFrom(stats,model.matrix)
 importFrom(stats,na.omit)
 importFrom(stats,na.pass)
 importFrom(stats,nobs)
-importFrom(stats,pbeta)
 importFrom(stats,pf)
 importFrom(stats,pnorm)
 importFrom(stats,predict.glm)
 importFrom(stats,pt)
-importFrom(stats,qcauchy)
 importFrom(stats,qf)
 importFrom(stats,qnorm)
 importFrom(stats,resid)
@@ -213,7 +197,6 @@ importFrom(stats,var)
 importFrom(stats,vcov)
 importFrom(stats,weighted.mean)
 importFrom(stats,weights)
-importFrom(stats,wilcox.test)
 importFrom(stats,xtabs)
 importFrom(tidyr,gather)
 importFrom(tidyr,nest)

R/Deprecated.R

@@ -83,3 +83,19 @@ se <- function(x, ...) {
   .Defunct("parameters::standard_error()")
   parameters::standard_error(x)
 }
+
+
+#' @rdname r2
+#' @export
+means_by_group <- function(x, ...) {
+  .Defunct("datawizard::means_by_group()")
+  datawizard::means_by_group(x, ...)
+}
+
+
+#' @rdname r2
+#' @export
+mean_n <- function(x, ...) {
+  .Defunct("datawizard::row_means()")
+  datawizard::row_means(x, ...)
+}

R/anova_stats.R

@@ -29,9 +29,7 @@
 #' }
 #' @export
 anova_stats <- function(model, digits = 3) {
-  if (!requireNamespace("pwr", quietly = TRUE)) {
-    stop("Package `pwr` needed for this function to work. Please install it.", call. = FALSE)
-  }
+  insight::check_if_installed("pwr")
 
   # .Deprecated("effectsize::effectsize()", package = "effectsize")
 
@@ -94,6 +92,7 @@ aov_stat <- function(model, type) {
 
 
 aov_stat_summary <- function(model) {
+  insight::check_if_installed("broom")
   # check if we have a mixed model
   mm <- is_merMod(model)
   ori.model <- model