Revised one test to avoid issue #82 (for now).

stephenslab · Jun 17, 2020 · 68038b4 · 68038b4
1 parent 9663183
commit 68038b4
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: mashr
 Type: Package
 Encoding: UTF-8
 Title: Multivariate Adaptive Shrinkage 
-Version: 0.2.37
+Version: 0.2.38
 Date: 2020-06-16
 Authors@R: c(person("Matthew","Stephens",role="aut"),
              person("Sarah","Urbut",role="aut"),

diff --git a/tests/testthat/test_cpp_computation.R b/tests/testthat/test_cpp_computation.R
@@ -94,7 +94,10 @@ test_that("compare posterior computation R vs C++ in provided data of 100 X 5",
                 compute_posterior_matrices(data,Ulist,posterior_weights,
                                            algorithm.version = "Rcpp",
                                            mc.cores = 4))
-  expect_equal(out1, out2, tolerance=1e-5)
+  expect_equal(out1$PosteriorMean,out2$PosteriorMean,tolerance = 1e-5)
+  expect_equal(out1$NegativeProb,out2$NegativeProb,tolerance = 1e-5)
+  expect_equal(out1$lfdr,out2$lfdr,tolerance = 1e-5)
+  expect_equal(out1$lfsr,out2$lfsr,tolerance = 1e-5)
 }
 )