styler

easystats · Oct 2, 2024 · 1ae48bc · 1ae48bc
1 parent 34f292a
commit 1ae48bc
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 7 deletions.
diff --git a/R/descriptives.R b/R/descriptives.R
@@ -111,7 +111,6 @@ coef_var.default <- function(x, verbose = TRUE, ...) {
 coef_var.numeric <- function(x, mu = NULL, sigma = NULL,
                              method = c("standard", "unbiased", "median_mad", "qcd"),
                              trim = 0, remove_na = FALSE, n = NULL, ...) {
-
   # TODO: Support weights
   if (!missing(x) && all(c(-1, 1) %in% sign(x))) {
     insight::format_error("Coefficient of variation only applicable for ratio scale variables.")

diff --git a/R/means_by_group.R b/R/means_by_group.R
@@ -60,7 +60,7 @@ means_by_group.numeric <- function(x,
                                    weights = NULL,
                                    digits = NULL,
                                    ...) {
-   # validation check for arguments
+  # validation check for arguments
 
   # "by" must be provided
   if (is.null(by)) {

diff --git a/R/recode_values.R b/R/recode_values.R
@@ -526,4 +526,4 @@ recode_values.data.frame <- function(x,
   }
 
   ok
-}
+}
diff --git a/R/skewness_kurtosis.R b/R/skewness_kurtosis.R
@@ -111,7 +111,6 @@ skewness.numeric <- function(x,
                              iterations = NULL,
                              verbose = TRUE,
                              ...) {
-
   if (remove_na) x <- x[!is.na(x)]
   n <- length(x)
   out <- (sum((x - mean(x))^3) / n) / (sum((x - mean(x))^2) / n)^1.5
@@ -171,7 +170,6 @@ skewness.matrix <- function(x,
                             type = "2",
                             iterations = NULL,
                             ...) {
-
   .skewness <- apply(
     x,
     2,
@@ -220,7 +218,6 @@ skewness.default <- function(x,
                              type = "2",
                              iterations = NULL,
                              ...) {
-
   skewness(
     .factor_to_numeric(x),
     remove_na = remove_na,
@@ -348,7 +345,6 @@ kurtosis.default <- function(x,
                              type = "2",
                              iterations = NULL,
                              ...) {
-
   kurtosis(
     .factor_to_numeric(x),
     remove_na = remove_na,