test absolute values

ms609 · Sep 6, 2024 · 47353a7 · 47353a7
1 parent 2b9e734
commit 47353a7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-spectral_clustering.R b/tests/testthat/test-spectral_clustering.R
@@ -7,6 +7,6 @@ test_that("Spectral clustering fails gracefully", {
 test_that("Spectral clustering works", {
   allEig <- SpectralEigens(d, nEig = Inf)
   expect_equal(dim(allEig), c(40, 40))
-  expect_equal(SpectralEigens(d, nEig = 2), allEig[, 40:39],
+  expect_equal(abs(SpectralEigens(d, nEig = 2)), abs(allEig[, 40:39]),
                tolerance = sqrt(.Machine[["double.eps"]]))
 })