Update tests/testthat/test-yeo-johnson.R

dshemetov · dsweber2 · web-flow · commit daa9bf1b8b0e · 2025-03-20T18:05:08.000-07:00
Co-authored-by: David Weber &lt;david.weber2@pm.me&gt;
diff --git a/tests/testthat/test-yeo-johnson.R b/tests/testthat/test-yeo-johnson.R
@@ -3,7 +3,7 @@ suppressPackageStartupMessages(source(here::here("R", "load_all.R")))
 test_that("Yeo-Johnson transformation inverts correctly", {
   expect_true(
     map_lgl(seq(-5, 5, 0.1), function(lambda) {
-      map_lgl(seq(0, 10, 0.1), \(x) abs(yj_inverse(yj_transform(x, lambda), lambda) - x) < 0.00001) %>% all()
+      map_lgl(seq(-10, 10, 0.1), \(x) abs(yj_inverse(yj_transform(x, lambda), lambda) - x) < 0.00001) %>% all()
     }) %>%
       all()
   )

Original file line number	Diff line number	Diff line change
`@@ -3,7 +3,7 @@ suppressPackageStartupMessages(source(here::here("R", "load_all.R")))`
`3`	`3`	`test_that("Yeo-Johnson transformation inverts correctly", {`
`4`	`4`	`expect_true(`
`5`	`5`	`map_lgl(seq(-5, 5, 0.1), function(lambda) {`
`6`		`- map_lgl(seq(0, 10, 0.1), \(x) abs(yj_inverse(yj_transform(x, lambda), lambda) - x) < 0.00001) %>% all()`
	`6`	`+ map_lgl(seq(-10, 10, 0.1), \(x) abs(yj_inverse(yj_transform(x, lambda), lambda) - x) < 0.00001) %>% all()`
`7`	`7`	`}) %>%`
`8`	`8`	`all()`
`9`	`9`	`)`