cleanup

NAMESPACE

@@ -82,7 +82,6 @@ export(find_beta2)
 export(find_cauchy)
 export(find_normal)
 export(gmd)
-export(grpmean)
 export(icc)
 export(inequ_trend)
 export(is_prime)
@@ -131,14 +130,10 @@ 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)
@@ -156,7 +151,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)
@@ -165,15 +159,10 @@ 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,str_contains)
-importFrom(sjmisc,to_value)
 importFrom(sjmisc,trim)
 importFrom(sjmisc,typical_value)
 importFrom(stats,approx)

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, ...)
+}