Add approximate attr

All the FALSEs #345
easystats · Jun 14, 2021 · 2654d44 · 2654d44
1 parent a45141f
commit 2654d44
Show file tree

Hide file tree

Showing 4 changed files with 18 additions and 3 deletions.
diff --git a/R/cohens_d.R b/R/cohens_d.R
@@ -310,6 +310,7 @@ glass_delta <- function(x,
   attr(out, "mu") <- mu
   attr(out, "ci") <- ci
   attr(out, "ci_method") <- ci_method
+  attr(out, "approximate") <- FALSE
   return(out)
 }
 

diff --git a/R/effectsize.R b/R/effectsize.R
@@ -133,7 +133,9 @@ effectsize.BFBayesFactor <- function(model, type = NULL, verbose = TRUE, ...) {
     stop("No effect size for this type of BayesFactor object.")
   }
 
-  bayestestR::describe_posterior(res, ...)
+  out <- bayestestR::describe_posterior(res, ...)
+  attr(out, "approximate") <- FALSE
+  out
 }
 
 
@@ -188,6 +190,7 @@ effectsize.easycorrelation <- function(model, ...) {
 
   out <- model[, r_cols, drop = FALSE]
   class(out) <- c("effectsize_table", "see_effectsize_table", "data.frame")
+  attr(out, "approximate") <- FALSE
   out
 }
 

diff --git a/R/rank_effectsizes.R b/R/rank_effectsizes.R
@@ -237,6 +237,7 @@ rank_biserial <- function(x,
   attr(out, "mu") <- mu
   attr(out, "ci") <- ci
   attr(out, "ci_method") <- ci_method
+  attr(out, "approximate") <- FALSE
   return(out)
 }
 
@@ -303,6 +304,7 @@ rank_epsilon_squared <- function(x,
   class(out) <- c("effectsize_table", "see_effectsize_table", class(out))
   attr(out, "ci") <- ci
   attr(out, "ci_method") <- ci_method
+  attr(out, "approximate") <- FALSE
   return(out)
 }
 
@@ -349,6 +351,7 @@ kendalls_w <- function(x,
   class(out) <- c("effectsize_table", "see_effectsize_table", class(out))
   attr(out, "ci") <- ci
   attr(out, "ci_method") <- ci_method
+  attr(out, "approximate") <- FALSE
   return(out)
 }
 

diff --git a/R/xtab.R b/R/xtab.R
@@ -147,14 +147,16 @@ phi <- function(x, y = NULL, ci = 0.95, adjust = FALSE, CI, ...) {
     nc <- 1
   }
 
-  chisq_to_phi(
+  out <- chisq_to_phi(
     chisq = .chisq(Obs, Exp),
     n = sum(Obs),
     nrow = nr,
     ncol = nc,
     ci = ci,
     adjust = adjust
   )
+  attr(out, "approximate") <- FALSE
+  out
 }
 
 #' @rdname phi
@@ -198,14 +200,16 @@ cramers_v <- function(x, y = NULL, ci = 0.95, adjust = FALSE, CI, ...) {
     nc <- 1
   }
 
-  chisq_to_cramers_v(
+  out <- chisq_to_cramers_v(
     chisq = .chisq(Obs, Exp),
     n = sum(Obs),
     nrow = nr,
     ncol = nc,
     ci = ci,
     adjust = adjust
   )
+  attr(out, "approximate") <- FALSE
+  out
 }
 
 
@@ -273,6 +277,7 @@ oddsratio <- function(x, y = NULL, ci = 0.95, log = FALSE, ...) {
   attr(res, "ci") <- ci
   attr(res, "ci_method") <- ci_method
   attr(res, "log") <- log
+  attr(res, "approximate") <- FALSE
   return(res)
 }
 
@@ -340,6 +345,7 @@ riskratio <- function(x, y = NULL, ci = 0.95, log = FALSE, ...) {
   attr(res, "ci") <- ci
   attr(res, "ci_method") <- ci_method
   attr(res, "log") <- log
+  attr(res, "approximate") <- FALSE
   return(res)
 }
 
@@ -397,6 +403,7 @@ cohens_h <- function(x, y = NULL, ci = 0.95, ...) {
   class(out) <- c("effectsize_table", "see_effectsize_table", class(out))
   attr(out, "ci") <- ci
   attr(out, "ci_method") <- ci_method
+  attr(out, "approximate") <- FALSE
   return(out)
 }
 
@@ -463,6 +470,7 @@ cohens_g <- function(x, y = NULL, ci = 0.95, ...) {
   class(out) <- c("effectsize_table", "see_effectsize_table", class(out))
   attr(out, "ci") <- ci
   attr(out, "ci_method") <- ci_method
+  attr(out, "approximate") <- FALSE
   return(out)
 }