From dc30fbb57d361350378322e618cbe83d716b67be Mon Sep 17 00:00:00 2001
From: "Mattan S. Ben-Shachar" <mattansb@msbstats.info>
Date: Wed, 21 Feb 2024 16:39:44 +0200
Subject: [PATCH] Update test-convert_statistic.R

---
 tests/testthat/test-convert_statistic.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tests/testthat/test-convert_statistic.R b/tests/testthat/test-convert_statistic.R
index 8cffc295b..2f78c11fa 100644
--- a/tests/testthat/test-convert_statistic.R
+++ b/tests/testthat/test-convert_statistic.R
@@ -93,4 +93,9 @@ test_that("eta2", {
   expect_equal(resf[[1]]^2, res[[1]] / (1 - res[[1]]), ignore_attr = TRUE)
   expect_equal(F_to_f(4, 3, 123), F_to_f2(4, 3, 123, squared = FALSE))
   expect_equal(F_to_f2(4, 3, 123), F_to_f(4, 3, 123, squared = TRUE))
+
+  res <- F_to_eta2(3.23, 1, 137)
+  expect_equal(res[[1]], 3.23 / (3.23 + 137))
+  expect_equal(res$CI_low, 0)
+  expect_equal(res$CI_high, 1)
 })