Skip to content

Commit

Permalink
fix #636
Browse files Browse the repository at this point in the history
  • Loading branch information
mattansb committed Apr 3, 2024
1 parent 6114f44 commit aa4a00b
Show file tree
Hide file tree
Showing 4 changed files with 11 additions and 4 deletions.
6 changes: 6 additions & 0 deletions NEWS.md
Original file line number Diff line number Diff line change
@@ -1,3 +1,9 @@
# effectsize 0.8.7.x

## Bug fixes

- `hedges_g()`, `vd_a()`, `wmw_odds()`, and `cliffs_delta()` no longer require `{effectsize}` to be loaded to work ( #636 ).

# effectsize 0.8.7

- This release changes the licensing model of `{effectsize}` to an MIT license.
Expand Down
2 changes: 1 addition & 1 deletion R/cohens_d.R
Original file line number Diff line number Diff line change
Expand Up @@ -160,7 +160,7 @@ hedges_g <- function(x, y = NULL, data = NULL,
ci = 0.95, alternative = "two.sided",
verbose = TRUE, ...) {
cl <- match.call()
cl[[1]] <- quote(cohens_d)
cl[[1]] <- quote(effectsize::cohens_d)
cl$adjust <- TRUE
eval.parent(cl)
}
Expand Down
5 changes: 3 additions & 2 deletions R/common_language.R
Original file line number Diff line number Diff line change
Expand Up @@ -340,7 +340,7 @@ vd_a <- function(x, y = NULL, data = NULL,
ci = 0.95, alternative = "two.sided",
verbose = TRUE, ...) {
cl <- match.call()
cl[[1]] <- quote(p_superiority)
cl[[1]] <- quote(effectsize::p_superiority)
cl$parametric <- FALSE
eval.parent(cl)
}
Expand All @@ -353,7 +353,7 @@ wmw_odds <- function(x, y = NULL, data = NULL,
ci = 0.95, alternative = "two.sided",
verbose = TRUE, ...) {
cl <- match.call()
cl[[1]] <- quote(rank_biserial)
cl[[1]] <- quote(effectsize::rank_biserial)
out <- eval.parent(cl)

rb_to_wmw_odds(out)
Expand All @@ -362,6 +362,7 @@ wmw_odds <- function(x, y = NULL, data = NULL,




# Utils -------------------------------------------------------------------

#' @keywords internal
Expand Down
2 changes: 1 addition & 1 deletion R/rank_diff.R
Original file line number Diff line number Diff line change
Expand Up @@ -220,7 +220,7 @@ cliffs_delta <- function(x, y = NULL, data = NULL,
insight::format_error("This effect size is only applicable for two independent samples.")
}

cl[[1]] <- quote(rank_biserial)
cl[[1]] <- quote(effectsize::rank_biserial)
cl$x <- x
cl$y <- y
eval.parent(cl)
Expand Down

0 comments on commit aa4a00b

Please sign in to comment.