Adding test for distance matrix

ipb-halle · Aug 23, 2024 · 5b7f23b · 5b7f23b
1 parent 254f35f
commit 5b7f23b
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/inst/extdata/testdata/calculateDistanceMatrix.Rdata b/inst/extdata/testdata/calculateDistanceMatrix.Rdata
diff --git a/tests/testthat/test_dataprocessing.R b/tests/testthat/test_dataprocessing.R
@@ -23,3 +23,15 @@ test_that("metaboliteProfileParsing works", {
 expect_equal(min(result$dataFrameMeasurements[,1]), 0)
 
 })
+
+test_that("HCA works", {
+  load(system.file("extdata/testdata/calculateDistanceMatrix.Rdata", package = "MetFamily"))
+
+  result <- calculateDistanceMatrix(dataList=dataList, 
+                                    filter=filter, 
+                                    distanceMeasure = "Jaccard", progress = FALSE)
+  expect_equal(sum(result$distanceMatrix), 46522.7, tolerance = 0.005)
+  expect_equal(sum(result$filter), 294508)
+  expect_true(result$distanceMeasure == "Jaccard")
+
+})