diff --git a/DESCRIPTION b/DESCRIPTION index 7431d1ab..66a083d6 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Type: Package Package: effectsize Title: Indices of Effect Size -Version: 1.0.1.2 +Version: 1.0.2 Authors@R: c(person(given = "Mattan S.", family = "Ben-Shachar", diff --git a/NEWS.md b/NEWS.md index 1cee7b83..efd09c2d 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,4 @@ -# effectsize 1.0.x +# effectsize 1.0.2 ## New features diff --git a/cran-comments.md b/cran-comments.md index 81166161..9d4b39a9 100644 --- a/cran-comments.md +++ b/cran-comments.md @@ -1,7 +1,7 @@ ## Test environments -* local installation: R 4.4.1 on Windows 11 x64 +* local installation: R 4.5.2 on Windows 11 x64 * GitHub Actions - Windows: release, devel - macOS: release @@ -16,7 +16,6 @@ ## revdepcheck results -We checked 28 reverse dependencies, comparing R CMD check results across CRAN and dev versions of this package. - - * We saw 0 new problems related to effectsize. +We checked 37 reverse dependencies (34 from CRAN + 3 from Bioconductor), comparing R CMD check results across CRAN and dev versions of this package. +* We saw 0 new problems related to effectsize. diff --git a/tests/testthat/test-effectsize.R b/tests/testthat/test-effectsize.R index ad2cd85a..5883de19 100644 --- a/tests/testthat/test-effectsize.R +++ b/tests/testthat/test-effectsize.R @@ -390,12 +390,12 @@ test_that("htest | rank", { expect_equal(rank_epsilon_squared(kt)[[1]], E, ignore_attr = TRUE) }) -test_that("htest | Get args from htest", { +test_that("htest | Get args from htest (t.test)", { tt <- t.test( mtcars$hp, mtcars$mpg, alternative = "l", - mu = -3, + mu = 100, conf.level = 0.8, var.equal = TRUE ) @@ -405,18 +405,20 @@ test_that("htest | Get args from htest", { mtcars$hp, mtcars$mpg, alternative = "l", - mu = -3, + mu = 100, ci = 0.8 ), ignore_attr = TRUE ) +}) +test_that("htest | Get args from htest (wilcox.test)", { suppressWarnings({ - ww1 <- wilcox.test(mtcars$hp, mtcars$mpg, alternative = "l", mu = -3) + ww1 <- wilcox.test(mtcars$hp, mtcars$mpg, alternative = "l", mu = 80) }) expect_equal( rank_biserial(ww1), - rank_biserial(mtcars$hp, mtcars$mpg, alternative = "l", mu = -3), + rank_biserial(mtcars$hp, mtcars$mpg, alternative = "l", mu = 80), ignore_attr = TRUE ) @@ -425,9 +427,9 @@ test_that("htest | Get args from htest", { mtcars$hp, mtcars$mpg, alternative = "l", - mu = -3, + mu = 80, conf.int = TRUE, - conf.level = 0.8 + conf.level = 0.7 ) }) expect_equal( @@ -436,10 +438,11 @@ test_that("htest | Get args from htest", { mtcars$hp, mtcars$mpg, alternative = "l", - mu = -3, - ci = 0.8 + mu = 80, + ci = 0.7 ), - ignore_attr = TRUE + ignore_attr = TRUE, + tolerance = 0.01 ) })