From f4653bf13518873e2ed3ee8c7e5ca8ff3f57d843 Mon Sep 17 00:00:00 2001 From: Indrajeet Patil Date: Tue, 12 Dec 2023 08:15:23 +0100 Subject: [PATCH] minor formatting changes --- R/one-sample-test.R | 3 +-- R/oneway-anova.R | 10 +++++----- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/R/one-sample-test.R b/R/one-sample-test.R index 87cd88e1..2732e7e9 100644 --- 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 index c89b3c61..1e95257c 100644 --- 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 ) }