X-Git-Url: https://git.auder.net/?p=morpheus.git;a=blobdiff_plain;f=pkg%2Ftests%2Ftestthat%2Ftest-jointDiag.R;h=76eb839786bc9994f112f861140161cd48eb1f03;hp=619c9b643f4c3488c5ba986d976499cd8080e992;hb=ab35f6102896a49e86e853262c0650faa2931638;hpb=4b2f17bb108bab0f263619cfe00eabfb1e9b8860

diff --git a/pkg/tests/testthat/test-jointDiag.R b/pkg/tests/testthat/test-jointDiag.R
index 619c9b6..76eb839 100644
--- a/pkg/tests/testthat/test-jointDiag.R
+++ b/pkg/tests/testthat/test-jointDiag.R
@@ -1,5 +1,3 @@
-context("jointDiag::ajd")
-
 #auxiliary to test diagonality
 .computeMuCheckDiag = function(X, Y, K, jd_method, β_ref)
 {
@@ -24,9 +22,9 @@ context("jointDiag::ajd")
   for (i in 1:K)
   {
     shouldBeDiag <- invβ %*% M2_t[,,i] %*% t(invβ)
-    expect_that(
+    expect_lt(
       mean( abs(shouldBeDiag[upper.tri(shouldBeDiag) | lower.tri(shouldBeDiag)]) ),
-      is_less_than(max_error) )
+      max_error)
   }
 }