Merge branch 'fix-linter' into develop

ocbe-uio · Aug 31, 2023 · 6e3a079 · 6e3a079
2 parents 5e58af8 + e969ad8
commit 6e3a079
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git 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(

diff --git 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(