From 4d2dd652435987c2b15257bbcc5209ba13563a4f Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Thu, 31 Aug 2023 12:44:50 +0200 Subject: [PATCH 1/2] Reduced width of test code --- tests/testthat/test-chackoPapers.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test-chackoPapers.R b/tests/testthat/test-chackoPapers.R index f27d26a..3b377c3 100644 --- a/tests/testthat/test-chackoPapers.R +++ b/tests/testthat/test-chackoPapers.R @@ -1,9 +1,9 @@ test_that("Examples from Chacko (1966) produce correct vectors", { expect_equal(reduceVector(chacko66_sec3)[, "x"], c(10, 14, 18)) expect_equal(reduceVector(chacko66_sec3)[, "t"], c(1, 3, 1)) - expect_equal(reduceVector(chacko66_sec5)[, "x"], c(12, 14, 17, 20, 24, 26, 30)) - expect_equal(reduceVector(chacko66_sec5)[, "t"], c(1, 1, 2, 3, 1, 1, 1)) - expect_equal(permChacko(chacko66_sec3)[["chisq_bar"]], 2.28571, tolerance = 1e-4) + expect_equal(reduceVector(chacko66_sec5)[, 1], c(12, 14, 17, 20, 24, 26, 30)) + expect_equal(reduceVector(chacko66_sec5)[, 2], c(1, 1, 2, 3, 1, 1, 1)) + expect_equal(permChacko(chacko66_sec3)[["chisq_bar"]], 2.2857143) expect_equal(permChacko(chacko66_sec5)[["chisq_bar"]], 13.5) set.seed(3174) expect_equal( From e969ad8ff00ae6b0a4fdf8de970de9a647638fb9 Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Thu, 31 Aug 2023 12:44:57 +0200 Subject: [PATCH 2/2] Increment version number to 0.1.0.9004 --- DESCRIPTION | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index c187fe0..34f96e2 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: permChacko Title: Chacko Test for Order-Restriction with Permutation -Version: 0.1.0.9003 +Version: 0.1.0.9004 Authors@R: c( person(