From 8ecb3a28a60290514dde24599564c34b9773e6a3 Mon Sep 17 00:00:00 2001
From: Chris Sobczak <chris@sobczak.family>
Date: Fri, 10 Jul 2026 16:42:21 -0700
Subject: Add performance metrics

---
 tests/testthat/test-matrix_metrics.R | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 tests/testthat/test-matrix_metrics.R

(limited to 'tests')

diff --git a/tests/testthat/test-matrix_metrics.R b/tests/testthat/test-matrix_metrics.R
new file mode 100644
index 0000000..e9348df
--- /dev/null
+++ b/tests/testthat/test-matrix_metrics.R
@@ -0,0 +1,4 @@
+test_that("Check that error is zero if the input matrices are the same object", {
+	results <- matrix_metrics(diag(10), diag(10))
+	expect_equal(results$rmse[1], 0)
+})
-- 
cgit v1.2.3