minor formatting changes

IndrajeetPatil · Dec 12, 2023 · f4653bf · f4653bf
1 parent e9c41f0
commit f4653bf
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 7 deletions.
diff --git a/R/one-sample-test.R b/R/one-sample-test.R
@@ -54,13 +54,12 @@ one_sample_test <- function(
     .f <- stats::t.test
     # styler: off
     if (effsize.type %in% c("unbiased", "g")) .f.es <- effectsize::hedges_g
-    if (effsize.type %in% c("biased", "d")) .f.es   <- effectsize::cohens_d
+    if (effsize.type %in% c("biased", "d"))   .f.es <- effectsize::cohens_d
     # styler: on
   }
 
   # non-parametric ---------------------------------------
 
-
   if (type == "nonparametric") c(.f, .f.es) %<-% c(stats::wilcox.test, effectsize::rank_biserial)
 
   if (type %in% c("parametric", "nonparametric")) {

diff --git a/R/oneway-anova.R b/R/oneway-anova.R
@@ -162,7 +162,7 @@ oneway_anova <- function(
 
     # styler: off
     if (effsize.type %in% c("unbiased", "omega")) .f.es <- effectsize::omega_squared
-    if (effsize.type %in% c("biased", "eta")) .f.es     <- effectsize::eta_squared
+    if (effsize.type %in% c("biased", "eta"))     .f.es <- effectsize::eta_squared
     # styler: on
 
     if (paired) {
@@ -224,10 +224,10 @@ oneway_anova <- function(
 
     if (paired) {
       mod <- WRS2::rmanova(
-        y       = data[[as_name(y)]],
-        groups  = data[[as_name(x)]],
-        blocks  = data[[".rowid"]],
-        tr      = tr
+        y      = data[[as_name(y)]],
+        groups = data[[as_name(x)]],
+        blocks = data[[".rowid"]],
+        tr     = tr
       )
     }