keep working on this. added plot to inspect.

wincowgerDEV · Dec 7, 2023 · 755a49e · 755a49e
1 parent 83d7a04
commit 755a49e
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/tests/testthat/test-match_spec.R b/tests/testthat/test-match_spec.R
@@ -52,7 +52,11 @@ test_that("os_similarity() handles input errors correctly", {
     distance1 <- unlist(abs(unspectra2 - unspectra2)) |> mean(na.rm = T)
     distance2 <- unlist(abs(unspectra2 - spectra2)) |> mean(na.rm = T)
     distance3 <- unlist(abs(CAspectra2 - unspectra2)) |> mean(na.rm = T)
-
+    test <- abs(CAspectra2 - unspectra2)
+
+    ggplot() +
+        geom_line(aes(x = seq(0,1, by = 0.1), y = unspectra2[[30]]))
+
     os_similarity(raman_hdpe, raman_hdpe) |>
         expect_equal(1)